~ chicken-core (master) 8a98899c4e36b36d5856569ba476ac3c4b3f8bd0

commit 8a98899c4e36b36d5856569ba476ac3c4b3f8bd0
Author:     Felix Winkelmann <felix.winkelmann@bevuta.com>
AuthorDate: Mon Sep 14 00:39:07 2026 +0200
Commit:     Felix Winkelmann <felix.winkelmann@bevuta.com>
CommitDate: Mon Sep 14 00:39:07 2026 +0200

    use inline routine directly

diff --git a/library.scm b/library.scm
index 5b9f8c5d..234b4b2a 100644
--- a/library.scm
+++ b/library.scm
@@ -3712,8 +3712,7 @@ EOF
   (##sys#make-bytevector size fill) )
 
 (define (bytevector? x)
-  (and (##core#inline "C_blockp" x)
-       (##core#inline "C_bytevectorp" x) ) )
+  (##core#inline "C_i_bytevectorp" x) )
 
 (define (bytevector-length bv)
   (##sys#check-bytevector bv 'bytevector-size)
diff --git a/srfi-4.scm b/srfi-4.scm
index 5ee8e096..bfad8c84 100644
--- a/srfi-4.scm
+++ b/srfi-4.scm
@@ -678,7 +678,7 @@ EOF
 
 ;;; Predicates:
 
-(define (u8vector? x) (and (##core#inline "C_blockp" x) (##core#inline "C_bytevectorp" x)))
+(define (u8vector? x) (##core#inline "C_i_bytevectorp" x))
 (define (s8vector? x) (and (##core#inline "C_blockp" x) (##core#inline "C_i_s8vectorp" x)))
 (define (u16vector? x) (and (##core#inline "C_blockp" x) (##core#inline "C_i_u16vectorp" x)))
 (define (s16vector? x) (and (##core#inline "C_blockp" x) (##core#inline "C_i_s16vectorp" x)))