diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:28 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:28 -0800 |
| commit | bd9733926076885e3417b74de76e4c9c7bc56254 (patch) | |
| tree | 2c99dced547d48407ad44cb0e45e31bb4d02ce43 /chap.scm | |
| parent | fa3f23105ddcf07c5900de47f19af43d1db1b597 (diff) | |
| download | slib-bd9733926076885e3417b74de76e4c9c7bc56254.tar.gz slib-bd9733926076885e3417b74de76e4c9c7bc56254.zip | |
Import Upstream version 2c7upstream/2c7
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)))))) |