making error bindings optional in catcher

orthecreedence · Jan 30, 2015 · b764b39 · b764b39
1 parent 2f4ffd9
commit b764b39
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/promise.lisp b/promise.lisp
@@ -304,7 +304,11 @@
      (lambda (e)
        (typecase e
          ,@(loop for x in handler-forms collect
-             (list (car x) `(let ((,(caadr x) e)) ,@(cddr x))))))))
+             (list (car x)
+                   (let ((bind (caadr x)))
+                     (if bind
+                         `(let ((,(caadr x) e)) ,@(cddr x))
+                         `(progn ,@(cddr x))))))))))
 
 (defun do-tap (promise tap-fn)
   "Gives a handler function access to a promise's value but finishes the