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

Using lowercase digits by default in (show (written ...)).

Browse source
This commit is contained in:
Alex Shinn 2014-01-12 19:41:11 +09:00
parent b638b9f1b4
commit efac4dde6a
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/chibi/show/write.scm
View file

@ -55,7 +55,7 @@
(define (char-digit d)
(cond ((char? d) d)
((< d 10) (integer->char (+ d (char->integer #\0))))
(else (integer->char (+ (- d 10) (char->integer #\A))))))
(else (integer->char (+ (- d 10) (char->integer #\a))))))
(define (digit-value ch)
(let ((res (- (char->integer ch) (char->integer #\0))))
(if (<= 0 res 9)