branch: externals/async commit 57f5d816c1b0dd7ae181763ad548da0284f3c45b Author: Thierry Volpiatto <thierry.volpia...@gmail.com> Commit: Thierry Volpiatto <thierry.volpia...@gmail.com>
Allow passing multiple forms to async-let without wrapping forms in a progn. * async.el (async-let): Do it. --- async.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/async.el b/async.el index 8bfd62d..c7dabe2 100644 --- a/async.el +++ b/async.el @@ -304,7 +304,7 @@ returns nil. It can still be useful, however, as an argument to (setq res (funcall f res x))) res)) -(defmacro async-let (bindings forms) +(defmacro async-let (bindings &rest forms) "Implements `let', but each binding is established asynchronously. For example: @@ -328,7 +328,7 @@ For example: `(async-start ,fun (lambda (,(car binding)) ,acc)))) - forms + `(progn ,@forms) (reverse bindings))) (provide 'async)