 
 user-type-name = (alpha|digit)+     => [[ >string ]]
 user-type = "type"~ ws user-type-name ws any-type
-          => [[ first2 [ <user> dup ] 2keep drop user-types [ ?set-at ] change ]]
+          => [[ first2 [ 2array ] 2keep swap user-types [ ?set-at ] change ]]
 
 user-types = user-type (ws user-type)* => [[ first2 swap prefix ]]
 schema = ws user-types ws => [[ <schema> ]]

TUPLE: map from to ;
TUPLE: union members ;
TUPLE: struct fields ;
TUPLE: user name type ;
TUPLE: schema types ;

! errors

    '[ _ _ bi* ] assoc-each ;

! XXX: M: union write-bare

M: struct write-bare
    fields>> [ [ dupd of ] [ write-bare ] bi* ] assoc-each drop ;
