[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/async 8242878 08/60: Merge pull request #69 from jwiegl

From: Stefan Monnier
Subject: [elpa] externals/async 8242878 08/60: Merge pull request #69 from jwiegley/async_let
Date: Tue, 8 Oct 2019 10:11:28 -0400 (EDT)

branch: externals/async
commit 82428780ec96e18ae801783f8d7388749fafd5fa
Merge: 5813c24 29e6144
Author: John Wiegley <address@hidden>
Commit: GitHub <address@hidden>

    Merge pull request #69 from jwiegley/async_let
    Async let improvements
 async.el | 26 +++++++++++++++++---------
 1 file changed, 17 insertions(+), 9 deletions(-)

diff --git a/async.el b/async.el
index c074a4a..0bb45fa 100644
--- a/async.el
+++ b/async.el
@@ -298,13 +298,16 @@ returns nil.  It can still be useful, however, as an 
argument to
   "Evaluate FUNC in a separate Emacs process, synchronously."
   `(async-get (async-start ,func)))
-(defun async--fold-left (f z xs)
-  (let ((res z))
-    (dolist (x xs)
-      (setq res (funcall f res x)))
+(defun async--fold-left (fn forms bindings)
+  (let ((res forms))
+    (dolist (binding bindings)
+      (setq res (funcall fn res
+                         (if (listp binding)
+                             binding
+                             (list binding)))))
-(defmacro async-let (bindings forms)
+(defmacro async-let (bindings &rest forms)
   "Implements `let', but each binding is established asynchronously.
 For example:
@@ -319,12 +322,17 @@ For example:
      (async-start (bar)
       (lambda (y)
         (message \"%s %s\" x y)))))"
+  (declare (indent 1))
    (lambda (acc binding)
-     `(async-start ,(cadr binding)
-                   (lambda (,(car binding))
-                     ,acc)))
-   forms (reverse bindings)))
+     (let ((fun (pcase (cadr binding)
+                  ((and (pred functionp) f) f)
+                  (f `(lambda () ,f)))))
+       `(async-start ,fun
+                     (lambda (,(car binding))
+                       ,acc))))
+   `(progn ,@forms)
+   (reverse bindings)))
 (provide 'async)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]