USING: kernel sequences slots parser words classes ;
IN: tuple-syntax

! TUPLE: foo bar baz ;
! TUPLE{ foo bar: 1 baz: 2 }

: parse-object ( -- object )
    scan-word dup parsing? [ V{ } clone swap execute first ] when ;

: parse-slot-writer ( tuple -- slot-setter )
    scan dup "}" = [ 2drop f ] [
        1 head* swap class "slots" word-prop
        [ slot-spec-name = ] with find nip slot-spec-writer
    ] if ;

: parse-slots ( accum tuple -- accum tuple )
    dup parse-slot-writer
    [ parse-object pick rot execute parse-slots ] when* ;

: TUPLE{
    scan-word construct-empty parse-slots parsed ; parsing