Fix malloc-struct-array

diff --git a/basis/struct-arrays/struct-arrays.factor b/basis/struct-arrays/struct-arrays.factor
old mode 100644 (file)
new mode 100755 (executable)
index 0b31845..33a469d
--- a/basis/struct-arrays/struct-arrays.factor
+++ b/basis/struct-arrays/struct-arrays.factor
@@ -34,4 +34,7 @@ ERROR: bad-byte-array-length byte-array ;
 : <direct-struct-array> ( alien length c-type -- struct-array )
     struct-array boa ; inline
 
+: malloc-struct-array ( length c-type -- struct-array )
+    heap-size [ calloc ] 2keep <direct-struct-array> ;
+
 INSTANCE: struct-array sequence