From c94490872ced89f35f69ece6d4fc4cf16dbfe741 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 29 Dec 2009 23:45:40 +0900 Subject: [PATCH] fixing bug in string->number for hex strings (issue #21) --- lib/init.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/init.scm b/lib/init.scm index d448a650..e1b7b256 100644 --- a/lib/init.scm +++ b/lib/init.scm @@ -486,7 +486,7 @@ (if (char-numeric? ch) (- (char->integer ch) (char->integer #\0)) (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) (if (if (null? o) #t (eq? 10 (car o)))