simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Typed-array identity + JVM flonum printing (Inc 3)

Browse source
This commit is contained in:
Yogthos 2026-06-21 22:36:14 -04:00
parent f2747679e9
commit 9e0a930eb4
7 changed files with 85 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

8
host/chez/run-corpus.ss
View file

@ -11,7 +11,7 @@
;; reset between cases so there is no leakage — same isolation a fresh process gives.
;;
;; chez --script host/chez/run-corpus.ss
;; JOLT_CHEZ_ZJ_FLOOR=N override the regression floor (default 2705)
;; JOLT_CHEZ_ZJ_FLOOR=N override the regression floor (default 2718)
;; JOLT_CORPUS_LIMIT=N every-Nth stride (fast iteration; floor drops to 0)
;; JOLT_DUMP_CRASH_LABELS=1 list crash + allowlisted labels
(import (chezscheme))
@ -102,10 +102,6 @@
"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"
"make-array" "into-array" "to-array" "aclone vec"
"boolean-array" "int-array" "long-array" "double-array"
"float-array" "short-array" "doubles" "floats" "reader over char[]"
"char-array of string"
"cancel an in-flight future returns true" "future-cancelled? after cancel"
"no param vector"))
(define known-fail (make-hashtable string-hash string=?))
@ -200,7 +196,7 @@
;; Regression floor: fail on any NEW divergence or if pass drops below the floor.
(define base-floor (let ((s (getenv "JOLT_CHEZ_ZJ_FLOOR")))
(if s (string->number s) 2705)))
(if s (string->number s) 2718)))
(define floor (if limit 0 base-floor))
(when (or (> (length diverged) 0) (< pass floor))
(printf "REGRESSION: pass ~a < floor ~a or ~a new divergence(s)\n"