dotfiles/.config/racket/racketrc.rktl

(current-print (λ (x)
                 (cond
                   [(void? x) #f]
                   ;; Also show fractions as decimals.
                   [(and (number? x) (exact? x) (not (exact-integer? x))) (printf "~a = ~a" x (exact->inexact x))]
                   [else (pretty-print x)])))
add racket init config 2023-09-30 15:37:13 +02:00			`(current-print (λ (x)`
			`(cond`
			`[(void? x) #f]`
			`;; Also show fractions as decimals.`
fix: racket REPL no longer errors when trying to print something not a number. 2023-11-12 18:15:48 +01:00			`[(and (number? x) (exact? x) (not (exact-integer? x))) (printf "~a = ~a" x (exact->inexact x))]`
add racket init config 2023-09-30 15:37:13 +02:00			`[else (pretty-print x)])))`