Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Prefer lowercase for hex digits.

Browse source
This commit is contained in:
Alex Shinn 2013-12-27 13:46:50 +09:00
parent cbe6759304
commit 8fcf0a883c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -382,7 +382,7 @@
(define (digit-char n) (define (digit-char n)
(if (<= n 9) (if (<= n 9)
(integer->char (+ n (char->integer #\0))) (integer->char (+ n (char->integer #\0)))
(integer->char (+ (- n 10) (char->integer #\A))))) (integer->char (+ (- n 10) (char->integer #\a)))))
(define (%number->string num) (define (%number->string num)
(call-with-output-string (lambda (out) (write num out)))) (call-with-output-string (lambda (out) (write num out))))