Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing bug in string->number for hex strings (issue #21)

Browse source
This commit is contained in:
Alex Shinn 2009-12-29 23:45:40 +09:00
parent b77d102a70
commit c94490872c
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.scm
View file

@ -486,7 +486,7 @@
(if (char-numeric? ch) (if (char-numeric? ch)
(- (char->integer ch) (char->integer #\0)) (- (char->integer ch) (char->integer #\0))
(and (<= 65 (char->integer (char-upcase ch)) 70) (and (<= 65 (char->integer (char-upcase ch)) 70)
(- (char->integer (char-upcase ch)) 65)))) (- (char->integer (char-upcase ch)) 55))))
(define (number->string n . o) (define (number->string n . o)
(if (if (null? o) #t (eq? 10 (car o))) (if (if (null? o) #t (eq? 10 (car o)))