M: array base-type drop void* base-type ;
-M: array stack-size drop void* stack-size ;
-
PREDICATE: string-type < pair
first2 [ c-string = ] [ word? ] bi* and ;
M: string-type base-type drop void* base-type ;
-M: string-type stack-size drop void* stack-size ;
-
M: string-type c-type-rep drop int-rep ;
M: string-type c-type-boxer-quot