diff options
author | Robin Templeton <robin@terpri.org> | 2014-08-11 06:04:28 -0400 |
---|---|---|
committer | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-19 18:10:05 -0400 |
commit | 31761a62217b2ffe67f9f391582026cce456fe3a (patch) | |
tree | 938151b5c6867ce1492600d277b26dbb27517c88 | |
parent | 05ea13e91083c782a7bb42d5c50b230b3c294a34 (diff) | |
download | guile-31761a62217b2ffe67f9f391582026cce456fe3a.tar.gz |
only evaluate top-level macro definitions
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)
* module/language/elisp/compile-tree-il.scm (defmacro): Check to see
whether toplevel? is true before compiling a macro.
-rw-r--r-- | module/language/elisp/compile-tree-il.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm index 29c769dd5..6c3f7bd98 100644 --- a/module/language/elisp/compile-tree-il.scm +++ b/module/language/elisp/compile-tree-il.scm @@ -786,9 +786,10 @@ args body)))) (make-const loc name)))) - (with-native-target - (lambda () - (compile tree-il #:from 'tree-il #:to 'value))) + (when (fluid-ref toplevel?) + (with-native-target + (lambda () + (compile tree-il #:from 'tree-il #:to 'value)))) tree-il))) (else (report-error loc "bad defmacro" args)))) |