~ chicken-core (chicken-5) 7f0fdc198647b15ed29a34b22d501326aa400c54
commit 7f0fdc198647b15ed29a34b22d501326aa400c54
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 2 06:06:29 2010 -0400
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 2 06:06:29 2010 -0400
fixed use of non-existant internal s8/u8 accessors (thanks to Kon Lovett)
diff --git a/srfi-4.scm b/srfi-4.scm
index a3d6cb82..b5f4371b 100644
--- a/srfi-4.scm
+++ b/srfi-4.scm
@@ -293,7 +293,7 @@ EOF
(##sys#check-exact-interval init 0 #xff 'make-u8vector)
(do ((i 0 (##core#inline "C_fixnum_plus" i 1)))
((##core#inline "C_fixnum_greater_or_equal_p" i len) v)
- (##sys#u8vector-set! v i init) ) ) ) ) ) )
+ (##core#inline "C_u_i_u8vector_set" v i init) ) ) ) ) ) )
(set! make-s8vector
(lambda (len #!optional (init #f) (ext? #f) (fin #t))
@@ -306,7 +306,7 @@ EOF
(##sys#check-exact-interval init -128 127 'make-s8vector)
(do ((i 0 (##core#inline "C_fixnum_plus" i 1)))
((##core#inline "C_fixnum_greater_or_equal_p" i len) v)
- (##sys#s8vector-set! v i init) ) ) ) ) ) )
+ (##core#inline "C_u_i_s8vector_set" v i init) ) ) ) ) ) )
(set! make-u16vector
(lambda (len #!optional (init #f) (ext? #f) (fin #t))
@@ -319,7 +319,7 @@ EOF
(##sys#check-exact-interval init 0 #xffff 'make-u16vector)
(do ((i 0 (##core#inline "C_fixnum_plus" i 1)))
((##core#inline "C_fixnum_greater_or_equal_p" i len) v)
- (##sys#u16vector-set! v i init) ) ) ) ) ) )
+ (##core#inline "C_u_i_u16vector_set" v i init) ) ) ) ) ) )
(set! make-s16vector
(lambda (len #!optional (init #f) (ext? #f) (fin #t))
@@ -332,7 +332,7 @@ EOF
(##sys#check-exact-interval init -32768 32767 'make-s16vector)
(do ((i 0 (##core#inline "C_fixnum_plus" i 1)))
((##core#inline "C_fixnum_greater_or_equal_p" i len) v)
- (##sys#s16vector-set! v i init) ) ) ) ) ) )
+ (##core#inline "C_u_i_s16vector_set" v i init) ) ) ) ) ) )
(set! make-u32vector
(lambda (len #!optional (init #f) (ext? #f) (fin #t))
Trap