branch: externals/async
commit 57f5d816c1b0dd7ae181763ad548da0284f3c45b
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
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)
