M: array c-type-unboxer-quot drop [ >c-ptr ] ;
PREDICATE: string-type < pair
- first2 [ char* = ] [ word? ] bi* and ;
+ first2 [ c-string = ] [ word? ] bi* and ;
M: string-type c-type ;
M: string-type c-type-setter
drop [ set-alien-cell ] ;
-{ char* utf8 } char <pointer> typedef
-{ char* utf8 } char* typedef
-{ char* utf8 } uchar <pointer> typedef
-{ char* binary } byte <pointer> typedef
-{ char* binary } ubyte <pointer> typedef
+{ c-string utf8 } c-string typedef