From: Robin Templeton <robin@terpri.org>
Date: Mon, 11 Aug 2014 10:04:28 +0000 (-0400)
Subject: only evaluate top-level macro definitions
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/085c832b0f49a1673074bdc6d1aa96cae3da93c2

only evaluate top-level macro definitions
---

diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm
index 702272e81..daa062375 100644
--- a/module/language/elisp/compile-tree-il.scm
+++ b/module/language/elisp/compile-tree-il.scm
@@ -782,7 +782,8 @@
                                           args
                                           body))))
                   (make-const loc name))))
-           (compile tree-il #:from 'tree-il #:to 'value)
+           (when (fluid-ref toplevel?)
+             (compile tree-il #:from 'tree-il #:to 'value))
            tree-il)))
     (else (report-error loc "bad defmacro" args))))