box array c-types into direct-arrays

db4
Joe Groff 2009-08-25 21:36:25 -05:00
parent 87c670b785
commit b6bba164e4
1 changed files with 5 additions and 1 deletions

View File

@ -29,7 +29,11 @@ M: array box-return drop "void*" box-return ;
M: array stack-size drop "void*" stack-size ;
M: array c-type-boxer-quot drop [ ] ;
M: array c-type-boxer-quot
unclip
[ product ]
[ [ require-c-type-arrays ] keep ] bi*
[ <c-type-direct-array> ] 2curry ;
M: array c-type-unboxer-quot drop [ >c-ptr ] ;