effect-name-parser ( -- parser )

Vocabulary

fjsc

Inputs

None

Outputs

parser

an object

Definition

USING: ascii combinators.short-circuit kernel peg strings ;

IN: fjsc

: effect-name-parser ( -- parser )
    [ { [ blank? not ] [ 41 = not ] [ 45 = not ] } 1&& ] satisfy
    repeat1 [ >string ] action ;