~ chicken-core (master) a30aa8febca9175a4f0c0bfe5a3754feea5cab3b


commit a30aa8febca9175a4f0c0bfe5a3754feea5cab3b
Author:     Felix Winkelmann <felix.winkelmann@bevuta.com>
AuthorDate: Tue Sep 22 12:08:58 2026 +0200
Commit:     Felix Winkelmann <felix.winkelmann@bevuta.com>
CommitDate: Tue Sep 22 12:08:58 2026 +0200

    make proper synonyms when matching

diff --git a/scrutinizer.scm b/scrutinizer.scm
index ba3fcbf5..5827a488 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -975,6 +975,8 @@
 	  ((eq? t2 'undefined) #f)
 	  ((eq? t1 'noreturn))
 	  ((eq? t2 'noreturn))
+          ((or (and (eq? t1 'bytevector) (eq? t2 'u8vector))
+               (and (eq? t1 'u8vector) (eq? t2 'bytevector))))
 	  ((maybe-expand-type t1) => (cut match1 <> t2))
 	  ((maybe-expand-type t2) => (cut match1 t1 <>))
 	  ((and (pair? t1) (eq? 'not (car t1)))
Trap