From f46c36c4a0ea1e96a9648fccb7d015e0547243b2 Mon Sep 17 00:00:00 2001 From: Johan Ceuppens Date: Mon, 16 Jan 2012 22:42:06 +0000 Subject: [PATCH] fixed string->color --- scsh/scgame/scgamedictionaries.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/scgame/scgamedictionaries.scm b/scsh/scgame/scgamedictionaries.scm index b630c3c..6d28896 100644 --- 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)