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 ] % ] [
        length <iota> [ <reversed> ] keep
        [ '[ _ ndrop _ nnip call ] [ ] like ] 2map ,
        \ dispatch ,
    ] bi ;