USE-parser ( -- parser )

Vocabulary

fjsc

Inputs

None

Outputs

parser

an object

Definition

USING: accessors kernel make peg sequences ;

IN: fjsc

: USE-parser ( -- parser )
    [ "USE:" token sp hide , identifier-parser sp , ] seq*
    [ first value>> ast-use boa ] action ;