scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed string->color

This commit is contained in:
Johan Ceuppens 2012-01-16 22:42:06 +00:00
parent e62303f795
commit f46c36c4a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/scgame/scgamedictionaries.scm
View File

@ -66,7 +66,7 @@
(define (string->color str) (define (string->color str)
(let ((colornumber 0)) (let ((colornumber 0))
(do ((i (- (string-length str) 1) (- i 1))) (do ((i (- (string-length str) 1) (- i 1)))
((< i 0) colornumber) ((< i 0) (- colornumber 1))
(let ((c (string-ref str i))) (let ((c (string-ref str i)))
(let ((n (cond ((or (eq? c #\a)(eq? c #\A)) (let ((n (cond ((or (eq? c #\a)(eq? c #\A))
10) 10)