box array c-types into direct-arrays
parent
87c670b785
commit
b6bba164e4
basis/alien/arrays
|
@ -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 ] ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue