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:
Noam Postavsky 2017-01-30 21:45:02 -05:00
parent ae8264c5cc
commit 72ef710f6e

View file

@ -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)))))