parse-tuple-literal-slots ( class slots -- tuple )

Vocabulary

classes.tuple.parser

Inputs

class	an object
slots	an object

Outputs

tuple

an object

Definition

USING: combinators kernel lexer parser ;

IN: classes.tuple.parser

: parse-tuple-literal-slots ( class slots -- tuple )
    scan-token {
        { "f" [ drop \ } parse-until boa>object ] }
        { "{" [ 2dup parse-slot-values assoc>object ] }
        { "}" [ drop new ] }
        [ bad-literal-tuple ]
    } case ;