use calloc in malloc-struct for consistency with malloc-object and malloc-array
							parent
							
								
									0e8fe01d11
								
							
						
					
					
						commit
						4e7bada863
					
				| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue