diff options
| author | Mattias Engdegård | 2022-12-17 18:20:48 +0100 |
|---|---|---|
| committer | Mattias Engdegård | 2022-12-18 14:48:54 +0100 |
| commit | 68fb06f47fd09d36a3d1d35a4d24bf40489bea19 (patch) | |
| tree | 01a2261dc1c0674345089e5bb9c3e7a13d1f0bf4 | |
| parent | 2c2ecb46b0ad3e841ac9551e3a80d02893cdf6ec (diff) | |
| download | emacs-68fb06f47fd09d36a3d1d35a4d24bf40489bea19.tar.gz emacs-68fb06f47fd09d36a3d1d35a4d24bf40489bea19.zip | |
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.
| -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 f4df40249de..8953e5fd019 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'." | |||
| 486 | (setq form (macroexp--compiler-macro handler newform)) | 486 | (setq form (macroexp--compiler-macro handler newform)) |
| 487 | (if (eq newform form) | 487 | (if (eq newform form) |
| 488 | newform | 488 | newform |
| 489 | (macroexp--expand-all newform))) | 489 | (macroexp--expand-all form))) |
| 490 | (macroexp--expand-all newform)))))) | 490 | (macroexp--expand-all newform)))))) |
| 491 | (_ form)))) | 491 | (_ form)))) |
| 492 | (pop byte-compile-form-stack))) | 492 | (pop byte-compile-form-stack))) |