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 ;