diff options
| author | Christian Ohler <ohler@gnu.org> | 2011-03-20 20:48:12 +1100 |
|---|---|---|
| committer | Christian Ohler <ohler@gnu.org> | 2011-03-20 20:48:12 +1100 |
| commit | a08a25d7aaf251aa18f2ef747be53734bc55cae9 (patch) | |
| tree | f711bae8a9f11434126aeb09594b0510ac183557 /lisp/emacs-lisp | |
| parent | bf02cb227d98626c3dff61c69fa8b4ce523d71bd (diff) | |
| download | emacs-a08a25d7aaf251aa18f2ef747be53734bc55cae9.tar.gz emacs-a08a25d7aaf251aa18f2ef747be53734bc55cae9.tar.bz2 emacs-a08a25d7aaf251aa18f2ef747be53734bc55cae9.zip | |
* emacs-lisp/cl-macs.el (cl-block-wrapper): Fix typo that broke CL
blocks.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index d4279a1b200..7aac5bdaa01 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -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) |