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'.
This commit is contained in:
parent
ae8264c5cc
commit
72ef710f6e
1 changed files with 1 additions and 1 deletions
|
@ -45,7 +45,7 @@
|
|||
|
||||
(defun cl--assertion-failed (form &optional string sargs args)
|
||||
(if debug-on-error
|
||||
(funcall debugger `(cl-assertion-failed ,form ,string ,@sargs))
|
||||
(funcall debugger 'error `(cl-assertion-failed (,form ,string ,@sargs)))
|
||||
(if string
|
||||
(apply #'error string (append sargs args))
|
||||
(signal 'cl-assertion-failed `(,form ,@sargs)))))
|
||||
|
|
Loading…
Add table
Reference in a new issue