fix struct-vectors
parent
fbdcb61763
commit
b42a1cc746
|
@ -13,11 +13,11 @@ TUPLE: struct-vector
|
|||
[ <struct-array> 0 ] keep struct-vector boa ; inline
|
||||
|
||||
M: struct-vector new-sequence
|
||||
[ c-type>> <struct-array> ] [ [ >fixnum ] [ c-type>> ] bi ] 2bi
|
||||
[ c-type>> <struct-array> ] [ [ >fixnum ] [ c-type>> ] bi* ] 2bi
|
||||
struct-vector boa ;
|
||||
|
||||
M: struct-vector contract 2drop ;
|
||||
|
||||
M: struct-array new-resizable c-type>> <struct-vector> ;
|
||||
|
||||
INSTANCE: struct-vector growable
|
||||
INSTANCE: struct-vector growable
|
||||
|
|
Loading…
Reference in New Issue