compile-parser-word ( parser -- word )

Vocabulary

peg.private

Inputs

parser

an object

Outputs

word

an object

Definition

USING: accessors kernel ;

IN: peg.private

: compile-parser-word ( parser -- word )
    dup compiled>>
    [ nip ] [ preset-parser-word dupd define-parser-word ] if* ;