[Chicken-hackers] [PATCH] Make base allocation size zero for C_a_i_listN rewrites

[Evan Hanson]

Previously, C_a_i_listN rewrites specified one word as the base size of
the resulting `##core#inline_allocate` form. However, because the
terminating C_SCHEME_END_OF_LIST isn't allocated, that base word needn't
be included in the calculated allocation size.
---
 c-platform.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/c-platform.scm b/c-platform.scm
index 19c8168..ecc97f4 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -860,8 +860,8 @@
 
 (rewrite 'cons 16 2 "C_a_i_cons" #t 3)
 (rewrite '##sys#cons 16 2 "C_a_i_cons" #t 3)
-(rewrite 'list 16 #f "C_a_i_list" #t '(1 3) #t)
-(rewrite '##sys#list 16 #f "C_a_i_list" #t '(1 3))
+(rewrite 'list 16 #f "C_a_i_list" #t '(0 3) #t)
+(rewrite '##sys#list 16 #f "C_a_i_list" #t '(0 3))
 (rewrite 'vector 16 #f "C_a_i_vector" #t #t #t)
 (rewrite '##sys#vector 16 #f "C_a_i_vector" #t #t)
 (rewrite '##sys#make-structure 16 #f "C_a_i_record" #t #t #t)
-- 
2.5.1