From 9a3f1b789bd937d9442aa24473e528fc33eb7d10 Mon Sep 17 00:00:00 2001
From: Kristian Lein-Mathisen <address@hidden>
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