branch: master
commit 5f50b4b0a1c8fd27446dc42541ac20cf4676dc1c
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)

Reply via email to