~ chicken-core (master) d0984351102673675195f3c410603c2fc6f0e3c8

commit d0984351102673675195f3c410603c2fc6f0e3c8
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Sep 22 12:37:57 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 22 12:37:57 2026 +0200

    wrong check
    
    (thanks to Diego A. Mundo)

diff --git a/srfi-4.scm b/srfi-4.scm
index 5ee8e096..5864a694 100644
--- a/srfi-4.scm
+++ b/srfi-4.scm
@@ -371,7 +371,7 @@ EOF
         (if (not init)
             v
             (begin
-              (check-uint-length init 8 'make-s8vector)
+              (check-int-length init 8 'make-s8vector)
               (do ((i 0 (##core#inline "C_fixnum_plus" i 1)))
                   ((##core#inline "C_fixnum_greater_or_equal_p" i len) v)
                 (##core#inline "C_u_i_s8vector_set" v i init) ) ) ) ) ) )