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

7
host/chez/rt.ss
View file

@ -129,8 +129,9 @@
(load "host/chez/predicates.ss")
;; --- jolt number printing ----------------------------------------------------
;; jolt models every number as a Clojure double: integer-valued values print
;; without a ".0" ((* 1.0 5) prints as "5", (/ 1 2) as "0.5").
;; jolt has a numeric tower (exact integer / ratio / double, distinguished by
;; class). Exact integer-valued values print without a ".0" ((+ 1 2) -> "3");
;; a double prints with one ((* 1.0 5) -> "5.0", as the JVM does).
(define (jolt-num->string x)
(cond
;; the -e / element printer renders the infinities and NaN in READABLE form
@ -139,7 +140,7 @@
((and (flonum? x) (fl= x +inf.0)) "##Inf")
((and (flonum? x) (fl= x -inf.0)) "##-Inf")
((and (flonum? x) (not (fl= x x))) "##NaN")
((and (rational? x) (integer? x)) (number->string (exact x)))
((and (exact? x) (integer? x)) (number->string x))
(else (number->string x))))
;; Program-final-value printer. jolt's `-e` prints in str-style: strings raw (no