expand-dispatch ( -- )

Vocabulary

macros.expander

Inputs

None

Outputs

None

Definition

USING: generalizations kernel make namespaces sequences
sequences.private ;

IN: macros.expander

: expand-dispatch ( -- )
    stack get pop end
    [ [ expand-macros ] [ ] map-as [ dip ] curry % ] [
        length <iota> [ <reversed> ] keep [
            [ [ ndrop ] curry ] dip [ nnip call ] curry compose
            [ ] like
        ] 2map , \ dispatch ,
    ] bi ;