~ chicken-core (master) 44df27bb4a11bdfb24565d69a2c8319f5833af35

commit 44df27bb4a11bdfb24565d69a2c8319f5833af35
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Nov 18 09:58:19 2025 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Nov 18 09:58:19 2025 +0100

    fix specialization of s8vector-length to use correct (indirect) length primitive (reported by Diego)

diff --git a/types.db b/types.db
index 4ebc0b16..534fde28 100644
--- a/types.db
+++ b/types.db
@@ -2373,7 +2373,7 @@
 (chicken.number-vector#s32vector-set! (#(procedure #:clean #:enforce) chicken.number-vector#s32vector-set! ((struct s32vector) fixnum integer) undefined))
 (chicken.number-vector#s8vector->bytevector (#(procedure #:clean #:enforce) chicken.number-vector#s8vector->bytevector ((struct s8vector)) bytevector))
 (chicken.number-vector#s8vector->bytevector/shared (#(procedure #:clean #:enforce) chicken.number-vector#s8vector->bytevector/shared ((struct s8vector)) bytevector))
-(chicken.number-vector#s8vector-length (#(procedure #:clean #:enforce) chicken.number-vector#s8vector-length ((struct s8vector)) fixnum) (((struct s8vector)) (##core#inline "C_u_i_8vector_length" #(1))))
+(chicken.number-vector#s8vector-length (#(procedure #:clean #:enforce) chicken.number-vector#s8vector-length ((struct s8vector)) fixnum) (((struct s8vector)) (##core#inline "C_u_i_s8vector_length" #(1))))
 (chicken.number-vector#s8vector->list (#(procedure #:clean #:enforce) chicken.number-vector#s8vector->list ((struct s8vector)) (list-of fixnum)))
 (chicken.number-vector#s8vector (#(procedure #:clean #:enforce) chicken.number-vector#s8vector (#!rest fixnum) (struct s8vector)))
 (chicken.number-vector#s8vector? (#(procedure #:pure #:predicate (struct s8vector)) chicken.number-vector#s8vector? (*) boolean))