From 10d2b992f710e03498d1fb4218073d2235c67cf5 Mon Sep 17 00:00:00 2001 From: Yogthos Date: Sun, 21 Jun 2026 22:49:34 -0400 Subject: [PATCH] Prune stale corpus allowlist entries (now-passing print-method + misc) The defmethod/print-method record cases, symbol-hint, and source-order entries no longer diverge (closed by the defmethod-setup + earlier fixes); drop them. 0 new divergences, corpus 2720/2741, 20 genuine gaps remain. --- host/chez/run-corpus.ss | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/host/chez/run-corpus.ss b/host/chez/run-corpus.ss index b584c83..0f74ef1 100644 --- a/host/chez/run-corpus.ss +++ b/host/chez/run-corpus.ss @@ -88,7 +88,7 @@ (define known-fail-labels '("getMessage on a thrown string" "type of record" "chunked-seq? always false" - "^Type tag on var" "symbol hint -> :tag" + "^Type tag on var" "lists extended type" "seq of tags" "close on throw" "macroexpand-1" "bean is the map" "proxy resolves nil" @@ -96,12 +96,9 @@ "bigdec" "bigdec int M" "bigdec suffix M" "transient vector" "transient map" "atom override fires nested" - "defmethod overrides a record, top level" - "defmethod fires nested in a map" "defmethod fires through prn" - "direct builtin override" "methods table inspectable" "reader conditional" "reader cond :jolt" "reader cond no match" "reader cond splice" "reader cond splice no match" - "nil nested" "bool nested" "source order through syntax-quote" + "nil nested" "bool nested" "cancel an in-flight future returns true" "future-cancelled? after cancel" "no param vector")) (define known-fail (make-hashtable string-hash string=?))