~ 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