procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* emacs-lisp/cl-macs.el (cl-block-wrapper): Fix typo that broke CL

Browse source 
blocks.
This commit is contained in:
Christian Ohler 2011-03-20 20:48:12 +11:00
parent bf02cb227d
commit a08a25d7aa
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/cl-macs.el
View file

@ -2612,7 +2612,7 @@ and then returning foo."
;; FIXME: To avoid re-applying macroexpand-all, we'd like to be able
;; to indicate that this return value is already fully expanded.
(if (cdr cl-entry)
`(catch (nth 1 cl-form) ,@(cdr cl-body))
`(catch ,(nth 1 cl-form) ,@(cdr cl-body))
cl-body)))
(define-compiler-macro cl-block-throw (cl-tag cl-value)