summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRobin Templeton <robin@terpri.org>2014-08-11 06:04:28 -0400
committerChristine Lemmer-Webber <cwebber@dustycloud.org>2021-10-19 18:10:05 -0400
commit31761a62217b2ffe67f9f391582026cce456fe3a (patch)
tree938151b5c6867ce1492600d277b26dbb27517c88
parent05ea13e91083c782a7bb42d5c50b230b3c294a34 (diff)
downloadguile-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.scm7
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))))