From 2bed30672d3b9232a0962dee22edfda82e295c4d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 9 Jan 2008 17:52:37 -0500
Subject: [PATCH] Minor macros fix
---
extra/macros/macros.factor | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/extra/macros/macros.factor b/extra/macros/macros.factor
index 2efd38d469..7694d9fa84 100755
--- a/extra/macros/macros.factor
+++ b/extra/macros/macros.factor
@@ -10,9 +10,12 @@ IN: macros
CREATE dup reset-generic parse-definition
over "declared-effect" word-prop effect-in length ;
+: real-macro-effect ( word -- effect' )
+ "declared-effect" word-prop effect-in 1 <effect> ;
+
: (MACRO:) ( word definition effect-in -- )
>r 2dup "macro" set-word-prop
- 2dup over "declared-effect" word-prop memoize-quot
+ 2dup over real-macro-effect memoize-quot
[ call ] append define
r> define-transform ;