~ 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