From 8fcf0a883c0d914d87978fe8388733d211baea8d Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 27 Dec 2013 13:46:50 +0900 Subject: [PATCH] Prefer lowercase for hex digits. --- lib/init-7.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/init-7.scm b/lib/init-7.scm index 8b4ea866..3b6f30b4 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -382,7 +382,7 @@ (define (digit-char n) (if (<= n 9) (integer->char (+ n (char->integer #\0))) - (integer->char (+ (- n 10) (char->integer #\A))))) + (integer->char (+ (- n 10) (char->integer #\a))))) (define (%number->string num) (call-with-output-string (lambda (out) (write num out))))