compile-parser ( parser -- word )

Vocabulary

peg

Inputs

parser

an object

Outputs

word

an object

Definition

USING: accessors kernel ;

IN: peg

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