From e076be3c78681e18e73fddec69b0268fd79c7fb8 Mon Sep 17 00:00:00 2001 From: LordMZTE Date: Sat, 4 Nov 2023 11:54:05 +0100 Subject: [PATCH] racket: correctly print exact non-integers --- .config/racket/racketrc.rktl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.config/racket/racketrc.rktl b/.config/racket/racketrc.rktl index ae42040..729b509 100644 --- a/.config/racket/racketrc.rktl +++ b/.config/racket/racketrc.rktl @@ -2,5 +2,5 @@ (cond [(void? x) #f] ;; Also show fractions as decimals. - [(and (rational? x) (not (integer? x))) (printf "~a = ~a" x (exact->inexact x))] + [(and (exact? x) (not (exact-integer? x))) (printf "~a = ~a" x (exact->inexact x))] [else (pretty-print x)])))