use calloc in malloc-struct for consistency with malloc-object and malloc-array

db4
Joe Groff 2009-08-29 17:17:25 -05:00
parent 0e8fe01d11
commit 4e7bada863
1 changed files with 1 additions and 1 deletions

View File

@ -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