34 lines
984 B
Factor
34 lines
984 B
Factor
! Copyright (C) 2007, 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: parser kernel sequences words effects
|
|
stack-checker.transforms combinators assocs definitions
|
|
quotations namespaces memoize accessors ;
|
|
IN: macros
|
|
|
|
: real-macro-effect ( word -- effect' )
|
|
"declared-effect" word-prop in>> 1 <effect> ;
|
|
|
|
: define-macro ( word definition -- )
|
|
over "declared-effect" word-prop in>> length >r
|
|
2dup "macro" set-word-prop
|
|
2dup over real-macro-effect memoize-quot [ call ] append define
|
|
r> define-transform ;
|
|
|
|
: MACRO:
|
|
(:) define-macro ; parsing
|
|
|
|
PREDICATE: macro < word "macro" word-prop >boolean ;
|
|
|
|
M: macro definer drop \ MACRO: \ ; ;
|
|
|
|
M: macro definition "macro" word-prop ;
|
|
|
|
M: macro reset-word
|
|
[ call-next-method ] [ f "macro" set-word-prop ] bi ;
|
|
|
|
: n*quot ( n seq -- seq' ) <repetition> concat >quotation ;
|
|
|
|
: saver ( n -- quot ) \ >r <repetition> >quotation ;
|
|
|
|
: restorer ( n -- quot ) \ r> <repetition> >quotation ;
|