diff options
| author | Noam Postavsky | 2017-01-30 21:45:02 -0500 |
|---|---|---|
| committer | Noam Postavsky | 2017-01-30 21:45:02 -0500 |
| commit | 72ef710f6e1c8e334fd50da9480a8cb151e823a2 (patch) | |
| tree | a6223c87cf22f9f2b72f36ec019a78f74df64a80 | |
| parent | ae8264c5cccf19d5b25a340a605bf2f07de1577e (diff) | |
| download | emacs-72ef710f6e1c8e334fd50da9480a8cb151e823a2.tar.gz emacs-72ef710f6e1c8e334fd50da9480a8cb151e823a2.zip | |
Fix call to debugger on assertion failure
* lisp/emacs-lisp/cl-preloaded.el (cl--assertion-failed): The first
argument must be `error', and the second is a list of arguments for
`signal'.
| -rw-r--r-- | lisp/emacs-lisp/cl-preloaded.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el index 0b079410002..4ae77a58ec9 100644 --- a/lisp/emacs-lisp/cl-preloaded.el +++ b/lisp/emacs-lisp/cl-preloaded.el | |||
| @@ -45,7 +45,7 @@ | |||
| 45 | 45 | ||
| 46 | (defun cl--assertion-failed (form &optional string sargs args) | 46 | (defun cl--assertion-failed (form &optional string sargs args) |
| 47 | (if debug-on-error | 47 | (if debug-on-error |
| 48 | (funcall debugger `(cl-assertion-failed ,form ,string ,@sargs)) | 48 | (funcall debugger 'error `(cl-assertion-failed (,form ,string ,@sargs))) |
| 49 | (if string | 49 | (if string |
| 50 | (apply #'error string (append sargs args)) | 50 | (apply #'error string (append sargs args)) |
| 51 | (signal 'cl-assertion-failed `(,form ,@sargs))))) | 51 | (signal 'cl-assertion-failed `(,form ,@sargs))))) |