parse-effect-token ( first? var end -- var more? )

Vocabulary

effects.parser

Inputs

first?	an object
var	an object
end	an object

Outputs

var	an object
more?	an object

Definition

USING: combinators effects.parser.private kernel lexer make ;

IN: effects.parser

: parse-effect-token ( first? var end -- var more? )
    scan-token {
        { [ end-token? ] [ drop nip f ] }
        { [ effect-opener? ] [ bad-effect ] }
        { [ effect-closer? ] [ stack-effect-omits-dashes ] }
        { [ row-variable? ] [ parse-effect-var t ] }
        [
            nipd standalone-type?
            [ parse-standalone-type ] [ parse-effect-value ] if
            , t
        ]
    } cond ;