2parse-number-macro-input ( acc word parser-quot -- acc )

Vocabulary

combinators.syntax.private

Inputs

acc	an object
word	an object
parser-quot	an object

Outputs

acc

an object

Definition

USING: combinators kernel quotations sequences ;

IN: combinators.syntax.private

: 2parse-number-macro-input ( acc word parser-quot -- acc )
    [ 2 cut* ] 2dip [ suffix! >quotation ] dip
    ( -- quot ) call-effect swap curry append! ;