From 85c79bb41ea185a6f073c9965a2ba7e7cbaa2228 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Wed, 3 Dec 2008 09:54:02 -0600
Subject: [PATCH] Fix malloc-struct-array
---
basis/struct-arrays/struct-arrays.factor | 3 +++
1 file changed, 3 insertions(+)
mode change 100644 => 100755 basis/struct-arrays/struct-arrays.factor
diff --git a/basis/struct-arrays/struct-arrays.factor b/basis/struct-arrays/struct-arrays.factor
old mode 100644
new mode 100755
index 0b31845fc7..33a469d0c8
--- 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