expand-dispatch? ( word -- ? )


Vocabulary
macros.expander

Inputs
wordan object


Outputs
?an object


Definition
USING: kernel math namespaces sequences sequences.private ;

IN: macros.expander

: expand-dispatch? ( word -- ? )
\ dispatch eq? stack get length 1 >= and ;