no really, support <c-type-array> of structs using struct-arrays

db4
Joe Groff 2009-08-25 20:57:23 -05:00
parent 39ac27c50a
commit 87c670b785
1 changed files with 4 additions and 4 deletions

View File

@ -98,12 +98,12 @@ M: array require-c-type-arrays
ERROR: specialized-array-vocab-not-loaded vocab word ;
: c-type-array-constructor ( c-type -- word )
array-constructor>> dup word?
[ first2 specialized-array-vocab-not-loaded ] unless ; foldable
array-constructor>> dup array?
[ first2 specialized-array-vocab-not-loaded ] when ; foldable
: c-type-direct-array-constructor ( c-type -- word )
direct-array-constructor>> dup word?
[ first2 specialized-array-vocab-not-loaded ] unless ; foldable
direct-array-constructor>> dup array?
[ first2 specialized-array-vocab-not-loaded ] when ; foldable
GENERIC: <c-type-array> ( len c-type -- array )
M: object <c-type-array>