[elpa] externals/async 29e6144 07/60: Allow non list bindings in async-let.

[Stefan Monnier]

branch: externals/async
commit 29e61448a206c6fc64e84f0bba1e67810e400f5e
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    Allow non list bindings in async-let.
    
    * async.el (async--fold-left): Also make arguments name more meaningful.
---
 async.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/async.el b/async.el
index c7dabe2..0bb45fa 100644
--- a/async.el
+++ b/async.el
@@ -298,10 +298,13 @@ 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)))))
     res))
 
 (defmacro async-let (bindings &rest forms)