[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 68fb06f47f 1/3: Fix compiler macro expansion bug
From: |
Mattias Engdegård |
Subject: |
master 68fb06f47f 1/3: Fix compiler macro expansion bug |
Date: |
Sun, 18 Dec 2022 09:38:33 -0500 (EST) |
branch: master
commit 68fb06f47fd09d36a3d1d35a4d24bf40489bea19
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
Fix compiler macro expansion bug
* lisp/emacs-lisp/macroexp.el (macroexp--expand-all):
When a compiler-macro handler is re-invoked (after macro-expanding
arguments), actually use the result instead of pointlessly dropping it
on the floor.
---
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 f4df40249d..8953e5fd01 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -486,7 +486,7 @@ Assumes the caller has bound `macroexpand-all-environment'."
(setq form (macroexp--compiler-macro handler newform))
(if (eq newform form)
newform
- (macroexp--expand-all newform)))
+ (macroexp--expand-all form)))
(macroexp--expand-all newform))))))
(_ form))))
(pop byte-compile-form-stack)))