steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/alien/c-types/c-types.factor
View File

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