fixed string->color

2012-01-16 22:42:06 +00:00 · 2012-01-16 22:42:06 +00:00 · f46c36c4a0
parent e62303f795
commit f46c36c4a0
1 changed files with 1 additions and 1 deletions
--- a/scsh/scgame/scgamedictionaries.scm
+++ b/scsh/scgame/scgamedictionaries.scm
@ -66,7 +66,7 @@
 (define (string->color str)
  (let ((colornumber 0))
    (do ((i (- (string-length str) 1) (- i 1)))
-	((< i 0) colornumber)
+	((< i 0) (- colornumber 1))
      (let ((c (string-ref str i)))
        (let ((n (cond ((or (eq? c #\a)(eq? c #\A))
 		       10)