steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor macros fix

db4
Slava Pestov 2008-01-09 17:52:37 -05:00
parent c8360f5ae5
commit 2bed30672d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/macros/macros.factor
View File

@ -10,9 +10,12 @@ IN: macros
CREATE dup reset-generic parse-definition CREATE dup reset-generic parse-definition
over "declared-effect" word-prop effect-in length ; 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 -- ) : (MACRO:) ( word definition effect-in -- )
>r 2dup "macro" set-word-prop >r 2dup "macro" set-word-prop
2dup over "declared-effect" word-prop memoize-quot 2dup over real-macro-effect memoize-quot
[ call ] append define [ call ] append define
r> define-transform ; r> define-transform ;