summaryrefslogtreecommitdiffstats
path: root/mwexpand.scm
diff options
context:
space:
mode:
Diffstat (limited to 'mwexpand.scm')
-rw-r--r--mwexpand.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/mwexpand.scm b/mwexpand.scm
index 07acf1d..719b899 100644
--- a/mwexpand.scm
+++ b/mwexpand.scm
@@ -154,6 +154,9 @@
((eq? keyword mw:denote-of-letrec) (mw:letrec exp env))
((eq? keyword mw:denote-of-quasiquote) (mw:quasiquote exp env))
((eq? keyword mw:denote-of-do) (mw:do exp env))
+ ; @@ leave alone define-macro args specs -- stef
+ ((eq? keyword mw:denote-of-define-macro) exp)
+ ((eq? keyword mw:denote-of-defmacro) exp)
((or (eq? keyword mw:denote-of-define)
(eq? keyword mw:denote-of-define-syntax))
;; slight hack to allow expansion into defines -KenD