~ chicken-core (chicken-5) 28243227787f9191389fa90a6caa3afdd06cfb49

commit 28243227787f9191389fa90a6caa3afdd06cfb49
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jun 30 10:24:42 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jun 30 10:24:42 2010 +0200

    fixed refs to undefined internal srfi-4 setters

diff --git a/srfi-4.scm b/srfi-4.scm
index 3737893d..818225ce 100644
--- a/srfi-4.scm
+++ b/srfi-4.scm
@@ -345,7 +345,7 @@ EOF
 	      (##sys#check-exact init 'make-u32vector)
 	      (do ((i 0 (##core#inline "C_fixnum_plus" i 1)))
 		  ((##core#inline "C_fixnum_greater_or_equal_p" i len) v)
-		(##sys#u32vector-set! v i init) ) ) ) ) ) )
+		(##core#inline "C_u_i_u32vector_set" v i init) ) ) ) ) ) )
 
   (set! make-s32vector
     (lambda (len #!optional (init #f)  (ext? #f) (fin #t))
@@ -358,7 +358,7 @@ EOF
 	      (##sys#check-exact init 'make-s32vector)
 	      (do ((i 0 (##core#inline "C_fixnum_plus" i 1)))
 		  ((##core#inline "C_fixnum_greater_or_equal_p" i len) v)
-		(##sys#s32vector-set! v i init) ) ) ) ) ) )
+		(##core#inline "C_u_i_s32vector_set" v i init) ) ) ) ) ) )
 
   (set! make-f32vector
     (lambda (len #!optional (init #f)  (ext? #f) (fin #t))
@@ -373,7 +373,7 @@ EOF
 		(set! init (##core#inline_allocate ("C_a_i_fix_to_flo" 4) init)) )
 	      (do ((i 0 (##core#inline "C_fixnum_plus" i 1)))
 		  ((##core#inline "C_fixnum_greater_or_equal_p" i len) v)
-		(##sys#f32vector-set! v i init) ) ) ) ) ) )
+		(##core#inline "C_u_i_f32vector_set" v i init) ) ) ) ) ) )
 
   (set! make-f64vector
     (lambda (len #!optional (init #f)  (ext? #f) (fin #t))