Merge pull request #31 from tychobrailleur/fix/closure-fix

Remove quoting of lambdas in `me-async-map`.
ag91 · Mar 30, 2024 · b9c4ebd · b9c4ebd
2 parents 41c3ee6 + 3bc7f50
commit b9c4ebd
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/moldable-emacs.el b/moldable-emacs.el
@@ -165,12 +165,12 @@ Optionally define a POLL-TIME to look for results and a TIMEOUT to fail."
   (let* ((start (current-time))
          (futures (mapcar
                    (lambda (el)
-                     (async-start `(lambda ()
-                                     (setq load-path ',load-path)
-                                     (funcall ,fn ,el))))
+                     (async-start (lambda ()
+                                     (setq load-path load-path)
+                                     (funcall fn el))))
                    els))
          (too-late-p
-          `(lambda () (>= (time-to-seconds (time-since ',start)) (or ,timeout 300)))))
+          (lambda () (>= (time-to-seconds (time-since start)) (or timeout 300)))))
     (me-async-map--finish
      futures
      (or post-fn (lambda (results)