identifier-ends-parser ( -- parser )

Vocabulary

fjsc

Inputs

None

Outputs

parser

an object

Definition

USING: ascii combinators.short-circuit kernel peg ;

IN: fjsc

: identifier-ends-parser ( -- parser )
    [
        {
            [ blank? not ]
            [ 34 = not ]
            [ 59 = not ]
            [ LETTER? not ]
            [ letter? not ]
            [ identifier-middle? not ]
        } 1&&
    ] satisfy repeat0 ;