~ chicken-core (master) 898d01dfd1d870332241f6d32373c5583a939f1b

commit 898d01dfd1d870332241f6d32373c5583a939f1b
Author:     Felix Winkelmann <felix.winkelmann@bevuta.com>
AuthorDate: Sun Sep 13 22:11:50 2026 +0200
Commit:     Felix Winkelmann <felix.winkelmann@bevuta.com>
CommitDate: Sun Sep 13 22:11:50 2026 +0200

    Add bytevector predicate that handles a non-immediate argument

diff --git a/chicken.h b/chicken.h
index 75bce52f..2464b809 100644
--- a/chicken.h
+++ b/chicken.h
@@ -2838,6 +2838,11 @@ inline static C_word C_i_pairp(C_word x)
   return C_mk_bool(!C_immediatep(x) && C_header_type(x) == C_PAIR_TYPE);
 }
 
+inline static C_word C_i_bytevectorp(C_word x)
+{
+  return C_mk_bool(!C_immediatep(x) && C_bytevectorp(x));
+}
+
 inline static C_word C_i_weak_pairp(C_word x)
 {
   return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_WEAK_PAIR_TAG);