define-parser ( -- parser )

Vocabulary

fjsc

Inputs

None

Outputs

parser

an object

Definition

USING: accessors kernel make peg sequences ;

IN: fjsc

: define-parser ( -- parser )
    [
        ":" token sp hide , identifier-parser sp
        [ value>> ] action , stack-effect-parser sp optional ,
        expression-parser , ";" token sp hide ,
    ] seq* [ first3 ast-define boa ] action ;