 M: struct-class writer-quot
     nip (writer-quot) ;
 
+<PRIVATE
 : struct-slot-values-quot ( class -- quot )
     struct-slots
     [ name>> reader-word 1quotation ] map


: (unboxer-quot) ( class -- quot )
    drop [ >c-ptr ] ;

M: struct-class boa>object
    swap pad-struct-slots

        { "{" [ parse-struct-slot` t ] }
        [ invalid-struct-slot ]
    } case ;
PRIVATE>

FUNCTOR-SYNTAX: STRUCT:
    scan-param parsed
