diff options
Diffstat (limited to 'mwexpand.scm')
-rw-r--r-- | mwexpand.scm | 3 |
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 |