parse-slot-name-delim ( end-delim string/f -- ? )

Vocabulary

classes.tuple.parser

Inputs

end-delim	an object
string/f	an object

Outputs

?

an object

Definition

USING: combinators kernel make sequences ;

IN: classes.tuple.parser

: parse-slot-name-delim ( end-delim string/f -- ? )
    {
        {
            [ dup { ":" "(" "<" "\"" "!" } member? ]
            [ invalid-slot-name ]
        }
        { [ 2dup = ] [ drop f ] }
        [ dup "{" = [ drop parse-long-slot-name ] when , t ]
    } cond nip ;