parse-binding ( end -- pair/f )

Vocabulary

functors.private

Inputs

end

an object

Outputs

pair/f

an object

Definition

USING: arrays combinators kernel lexer parser ;

IN: functors.private

: parse-binding ( end -- pair/f )
    scan-token
    { { [ 2dup = ] [ 2drop f ] } [ nip scan-object 2array ] }
    cond ;