expand-macro ( word quot -- )

Vocabulary

macros.expander

Inputs

word	an object
quot	an object

Outputs

None

Definition

USING: continuations kernel namespaces quotations sequences
vectors ;

IN: macros.expander

: expand-macro ( word quot -- )
    '[
        drop stack [ _ with-datastack >vector ] change
        stack get pop >quotation end [ expand-macros* ] each
    ] [ drop word, ] recover ;