stack-effect-parser ( -- parser )

Vocabulary

fjsc

Inputs

None

Outputs

parser

an object

Definition

USING: kernel make peg sequences ;

IN: fjsc

: stack-effect-parser ( -- parser )
    [
        "(" token hide , effect-name-parser sp repeat0 ,
        "--" token sp hide , effect-name-parser sp repeat0 ,
        ")" token sp hide ,
    ] seq* [ first2 ast-stack-effect boa ] action ;