define-parser-word ( word parser -- )

Vocabulary

peg.private

Inputs

word	an object
parser	an object

Outputs

None

Definition

USING: accessors kernel peg words ;

IN: peg.private

: define-parser-word ( word parser -- )
    [ peg>> parser-quot ( -- result ) define-declared ]
    [ id>> "peg-id" set-word-prop ] 2bi ;