expand-macro? ( word -- quot ? )


Vocabulary
macros.expander

Inputs
wordan object


Outputs
quotan object
?an object


Definition
USING: kernel math namespaces sequences ;

IN: macros.expander

: expand-macro? ( word -- quot ? )
dup macro-quot
[ swap macro-effect stack get length <= ] [ drop f f ] if* ;