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

Chez numeric tower: exact ints / Ratio / double for JVM parity (jolt-n6al)

Browse source 
jolt was all-flonum (one :number type, inherited from Janet whose only number
type is a double). The Chez runtime has a full numeric tower, so the zero-Janet
path now carries it = JVM Clojure semantics:

  (/ 1 2)      => 1/2      (exact Ratio, was 0.5)
  (integer? 3) => true   (integer? 3.0) => false   (float? 3.0) => true
  (ratio? (/ 1 2)) => true   (= 3 3.0) => false   (== 3 3.0) => true
  (+ 1 2) => 3 (exact)   (/ 1.0 2) => 0.5 (double)

jolt= was already exactness-aware (values.ss) and == is value-equality, so
=/== match the JVM split. The reader preserves exactness (integer literals exact,
a/b ratios exact rationals, decimals/exponents flonums); backend_scheme emit-const
renders exact ints/ratios and flonums faithfully; the value-position arithmetic,
count, int, compare, bit ops, parseLong, string .length/.indexOf, range,
timestamps, and array bytes return exact integers (= JVM int/long) instead of
coercing to flonum. double/parseDouble/clojure.math floor|ceil|signum stay double.

Only the zero-Janet path carries the tower (the Janet reader loses exactness into
a double before emit). The prelude/all-flonum path is unaffected for compiled code;
the runtime reader is shared, so a couple of all-flonum reader assertions become
value (==) assertions. ~16 numeric corpus cases now give the JVM tower value vs the
Janet-era :expected and are allowlisted as tower divergences (Chez == reference
JVM) pending the corpus flip to JVM (jolt-ecz0). No BigDecimal type (1M).

Re-minted. zero-janet 2682 (floor 2698->2682, the reclassified tower cases), 0 new
divergences; fixpoint 10/10, bootstrap 6/6, spine 35/35, cli 49/49; Janet gate 155
files 0 failed.
This commit is contained in:
Yogthos 2026-06-20 23:09:27 -04:00
parent eb1c3298a4
commit 467ad75ff7
20 changed files with 291 additions and 210 deletions
Download patch file Download diff file Expand all files Collapse all files

13
host/chez/natives-str.ss
View file

@ -91,18 +91,17 @@
((string=? method "toLowerCase") (ascii-string-down s))
((string=? method "toUpperCase") (ascii-string-up s))
((string=? method "trim") (str-trim s))
((string=? method "length") (exact->inexact (string-length s)))
((string=? method "length") (string-length s)) ; exact int (= JVM)
((string=? method "isEmpty") (fx=? (string-length s) 0))
((string=? method "charAt") (string-ref s (jolt->idx (arg 0))))
((string=? method "substring")
(substring s (jolt->idx (arg 0))
(if (fx>? (length rest) 1) (jolt->idx (arg 1)) (string-length s))))
((string=? method "indexOf")
(exact->inexact
(str-index-of s (str-needle (arg 0))
(if (fx>? (length rest) 1) (jolt->idx (arg 1)) 0))))
(str-index-of s (str-needle (arg 0))
(if (fx>? (length rest) 1) (jolt->idx (arg 1)) 0)))
((string=? method "lastIndexOf")
(exact->inexact (str-last-index-of s (str-needle (arg 0)))))
(str-last-index-of s (str-needle (arg 0))))
((string=? method "startsWith")
(let ((p (arg 0))) (and (fx>=? (string-length s) (string-length p))
(string=? (substring s 0 (string-length p)) p))))
@ -153,10 +152,10 @@
(define (str-lower s) (ascii-string-down s))
(define (str-reverse-b s) (list->string (reverse (string->list s))))
;; (str-find needle haystack) -> flonum index of first occurrence, or nil.
;; (str-find needle haystack) -> exact int index of first occurrence, or nil.
(define (str-find needle s)
(let ((i (str-index-of s needle 0)))
(if (fx<? i 0) jolt-nil (exact->inexact i))))
(if (fx<? i 0) jolt-nil i)))
;; (str-join coll [sep]) -> stringify each element (Clojure str), join by sep.
(define (str-join coll . opt)