coercers and array type relations for c-type classes

Joe Groff 2009-08-13 13:33:22 -04:00
parent 67d91887ca
commit 446fc910b6
1 changed files with 4 additions and 1 deletions

View File

@ -4,7 +4,7 @@ classes.c-types classes.parser classes.tuple
classes.tuple.parser classes.tuple.private combinators classes.tuple.parser classes.tuple.private combinators
combinators.smart fry generalizations generic.parser kernel combinators.smart fry generalizations generic.parser kernel
kernel.private libc macros make math math.order quotations kernel.private libc macros make math math.order quotations
sequences slots slots.private words ; sequences slots slots.private struct-arrays words ;
IN: classes.struct IN: classes.struct
! struct class ! struct class
@ -117,6 +117,9 @@ M: struct-class c-type-unboxer-quot
M: struct-class heap-size M: struct-class heap-size
"struct-size" word-prop ; "struct-size" word-prop ;
M: struct-class direct-array-of
<direct-struct-array> ;
! class definition ! class definition
: struct-prototype ( class -- prototype ) : struct-prototype ( class -- prototype )