~ chicken-core (chicken-5) 98491bfc2db8a93579ba6ae95dd1cd879c494102


commit 98491bfc2db8a93579ba6ae95dd1cd879c494102
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Mar 16 08:48:35 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Mar 16 08:48:35 2012 +0100

    use correct inline-prefix

diff --git a/srfi-4.scm b/srfi-4.scm
index 412b7c76..e82dc4e7 100644
--- a/srfi-4.scm
+++ b/srfi-4.scm
@@ -468,7 +468,7 @@ EOF
 		  '()
 		  (cons 
 		   ,(if alloc?
-			`(##core#inline_allocate (,(conc "C_a_i_" tag "_ref") 4) v i)
+			`(##core#inline_allocate (,(conc "C_a_u_i_" tag "_ref") 4) v i)
 			`(##core#inline ,(conc "C_u_i_" tag "_ref") v i))
 		   (loop (fx+ i 1)) ) ) ) ) ) ) )))
 
Trap