coercers and array type relations for c-type classes

db4
Joe Groff 2009-08-13 13:33:22 -04:00
parent 37c6405927
commit 92ac48a5bc
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 )