Hi Chickeners,
As the commit says, this fixes a typo in s8vector-ref's setter.
It can be applied in both chicken-5 and master.
K.
From 9a3f1b789bd937d9442aa24473e528fc33eb7d10 Mon Sep 17 00:00:00 2001
From: Kristian Lein-Mathisen <kristianl...@gmail.com>
Date: Thu, 13 Apr 2017 14:15:07 +0200
Subject: [PATCH] Fix a bug in srfi-4
this correctly uses s8vector-set! for the s8vector-ref's setter
---
srfi-4.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/srfi-4.scm b/srfi-4.scm
index 0371b9e6..3d532d80 100644
--- a/srfi-4.scm
+++ b/srfi-4.scm
@@ -257,7 +257,7 @@ EOF
(let ((len (##core#inline "C_u_i_s8vector_length" x)))
(check-range i 0 len 's8vector-ref)
(##core#inline "C_u_i_s8vector_ref" x i)))
- u8vector-set!
+ s8vector-set!
"(s8vector-ref v i)"))
(define u16vector-ref
--
2.12.2
_______________________________________________
Chicken-hackers mailing list
Chicken-hackers@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
