parse-standalone-type ( obj -- var )

Vocabulary

effects.parser.private

Inputs

obj

an object

Outputs

var

an object

Definition

USING: arrays kernel parser sequences words ;

IN: effects.parser.private

: parse-standalone-type ( obj -- var )
    parse-datum dup parsing-word? [
        V{ } clone swap execute-parsing dup length 1 =
        [ first ] [ bad-standalone-effect ] if
    ] when f swap 2array ;