[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 3091416: * lisp/emacs-lisp/macroexp.el (macroexp-if): Fix typo

From: Stefan Monnier
Subject: master 3091416: * lisp/emacs-lisp/macroexp.el (macroexp-if): Fix typo
Date: Wed, 27 Jan 2021 18:54:05 -0500 (EST)

branch: master
commit 30914167fd49e208c483541663f0275253e42227
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/macroexp.el (macroexp-if): Fix typo
 lisp/emacs-lisp/macroexp.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 78f0b63..e842222 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -377,7 +377,7 @@ Never returns an empty list."
       `(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.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]