2023-09-30 15:37:13 +02:00
|
|
|
(current-print (λ (x)
|
|
|
|
|
(cond
|
|
|
|
|
[(void? x) #f]
|
|
|
|
|
;; Also show fractions as decimals.
|
2023-11-04 11:54:05 +01:00
|
|
|
[(and (exact? x) (not (exact-integer? x))) (printf "~a = ~a" x (exact->inexact x))]
|
2023-09-30 15:37:13 +02:00
|
|
|
[else (pretty-print x)])))
|
