From 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:38 -0800 Subject: Import Upstream version 3a5 --- mwexpand.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'mwexpand.scm') 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 -- cgit v1.2.3