~ 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