(parse-slot-values) ( class slots -- )

Vocabulary

classes.tuple.parser

Inputs

class	an object
slots	an object

Outputs

None

Definition

USING: combinators kernel lexer ;

IN: classes.tuple.parser

: (parse-slot-values) ( class slots -- )
    2dup parse-slot-value scan-token {
        { "{" [ (parse-slot-values) ] }
        { "}" [ 2drop ] }
        [ 2nip bad-literal-tuple ]
    } case ;