From 4e7bada863c2988c25e477419f4fb8bd6cde1408 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 29 Aug 2009 17:17:25 -0500
Subject: [PATCH] use calloc in malloc-struct for consistency with
 malloc-object and malloc-array

---
 basis/classes/struct/struct.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 2cafb5e8fe..88c207f418 100644
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -45,7 +45,7 @@ M: struct equal?
 ] 1 define-partial-eval
 
 : malloc-struct ( class -- struct )
-    [ heap-size malloc ] keep memory>struct ; inline
+    [ 1 swap heap-size calloc ] keep memory>struct ; inline
 
 : (struct) ( class -- struct )
     [ heap-size <byte-array> ] keep memory>struct ; inline