Fix error reports for promise-done and promise-finally

bendlas · Apr 15, 2019 · 7ac038c · 7ac038c
1 parent f237a52
commit 7ac038c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/promise-done.el b/promise-done.el
@@ -57,9 +57,7 @@
     (promise-then self nil (lambda (err)
                              (run-at-time 0 nil
                                           (lambda ()
-                                            (if (listp err)
-                                                (signal (car err) (cdr err))
-                                              (error err)))))))
+                                            (signal 'error (list err)))))))
   nil)
 
 (provide 'promise-done)

diff --git a/promise-finally.el b/promise-finally.el
@@ -58,9 +58,7 @@
                 (lambda (err)
                   (promise-then (promise-resolve (funcall f))
                                 (lambda (_)
-                                  (if (consp err)
-                                      (signal (car err) (cdr err))
-                                    (error err)))))))
+                                  (promise-reject err))))))
 
 (provide 'promise-finally)
 ;;; promise-finally.el ends here