diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-27 18:53:58 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-27 18:53:58 -0500 |
| commit | 30914167fd49e208c483541663f0275253e42227 (patch) | |
| tree | f0a5d20ae38692c1d38efd390968936742124edc /lisp/emacs-lisp | |
| parent | d93bca019713e98228aca9f4d1a4838a72b1cf92 (diff) | |
| download | emacs-30914167fd49e208c483541663f0275253e42227.tar.gz emacs-30914167fd49e208c483541663f0275253e42227.tar.bz2 emacs-30914167fd49e208c483541663f0275253e42227.zip | |
* lisp/emacs-lisp/macroexp.el (macroexp-if): Fix typo
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index 78f0b636a74..e842222b7c3 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el @@ -377,7 +377,7 @@ Never returns an empty list." (t `(cond (,test ,@(macroexp-unprogn then)) (,(nth 1 else) ,@(macroexp-unprogn (nth 2 else))) - ,@(let ((def (nthcdr 3 else))) (if def '((t ,@def)))))))) + ,@(let ((def (nthcdr 3 else))) (if def `((t ,@def)))))))) ((eq (car-safe else) 'cond) `(cond (,test ,@(macroexp-unprogn then)) ,@(cdr else))) ;; Invert the test if that lets us reduce the depth of the tree. |