diff options
Diffstat (limited to 'chap.scm')
| -rw-r--r-- | chap.scm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -89,7 +89,7 @@ ((char-lower-case? (string-ref s (+ -1 p))) (chap:inc-string s (+ -1 p))) (else - (string-append + (string-append (substring s 0 p) "a" (substring s p (string-length s)))))) @@ -99,7 +99,7 @@ ((char-upper-case? (string-ref s (+ -1 p))) (chap:inc-string s (+ -1 p))) (else - (string-append + (string-append (substring s 0 p) "A" (substring s p (string-length s)))))) @@ -109,7 +109,7 @@ ((char-numeric? (string-ref s (+ -1 p))) (chap:inc-string s (+ -1 p))) (else - (string-append + (string-append (substring s 0 p) "1" (substring s p (string-length s)))))) |