define-macro ( word definition effect -- )


Vocabulary
macros

Inputs
wordan object
definitionan object
effectan object


Outputs
None

Definition
USING: combinators kernel macros.private memoize words ;

IN: macros

: define-macro ( word definition effect -- )
{
[ nip check-macro-effect ]
[
[ [ call-effect ] 2curry ] keep
[ memoize-quot [ call ] compose ] keep
define-declared
]
[ drop "macro" set-word-prop ]
[ 2drop changed-effect ]
} 3cleave ;