Merge pull request #18 from DarwinAwardWinner/lexbind-fix

Lexbind fix

async-test.el

@@ -29,6 +29,7 @@
 
 ;;; Code:
 
+(add-to-list 'load-path (file-name-directory (or load-file-name (buffer-file-name))))
 (require 'async)
 (require 'async-file)
 
@@ -130,6 +131,26 @@
    (lambda (result)
      (message "Async process done: %s" result))))
 
+(defun async-test-7 ()
+  (interactive)
+  (message "Starting async-test-7...")
+  (eval
+   '(progn
+      (print
+       (mapcar #'async-get
+               (cl-loop repeat 2 collect
+                        (async-start (lambda () t)))))
+      (print
+       (mapcar #'async-get
+               (cl-loop repeat 2 collect
+                        (async-start '(lambda () t)))))
+      (print
+       (mapcar #'async-get
+               (cl-loop repeat 2 collect
+                        (async-start `(lambda () ,(* 150 2)))))))
+   t)
+  (message "Finished async-test-7 successfully."))
+
 (defsubst async-file-contents (file)
   "Return the contents of FILE, as a string."
   (with-temp-buffer

async.el

@@ -260,8 +260,22 @@ passed to FINISH-FUNC).  Call `async-get' on such a future always
 returns nil.  It can still be useful, however, as an argument to
 `async-ready' or `async-wait'."
   (require 'find-func)
-  (let ((procvar (make-symbol "proc")))
-    `(let* ((sexp ,start-func)
+  (let* ((procvar (make-symbol "proc"))
+         ;; Evaluate START-FUNC if it isn't aready a function.
+         (start-func
+          (if (functionp start-func)
+              start-func
+            (eval start-func)))
+         (start-func
+          (if (eq (car start-func) 'lambda)
+              (eval start-func t)
+            start-func)))
+    ;; If START-FUNC is a lambda, prevent it from creating a lexical
+    ;; closure by evaluating it in an empty lexical environment.
+    (when (eq (car start-func) 'lambda)
+      (setq start-func
+            (eval start-func t)))
+    `(let* ((sexp #',start-func)
             (,procvar
              (async-start-process
               "emacs" (file-truename