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 -- )
    [ with-datastack >vector ] curry [ [ drop stack ] ] dip [
        change stack get pop >quotation end
        [ expand-macros* ] each
    ] curry compose [ drop word, ] recover ;