Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

bug in string-titlecase, string-cursor>=? doesn't take a string arg

Browse source
This commit is contained in:
Alex Shinn 2017-05-07 17:20:09 +09:00
parent 9cf8a3ddf3
commit 5e4fa52185
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/129/titlecase.scm
View file

@ -18,7 +18,7 @@
(let lp ((n (string-cursor-start str)) (let lp ((n (string-cursor-start str))
(prev-caseless? #t) (prev-caseless? #t)
(result '())) (result '()))
(if (string-cursor>=? str n end) (if (string-cursor>=? n end)
(list->string (reverse result)) (list->string (reverse result))
(let ((ch (string-cursor-ref str n)) (let ((ch (string-cursor-ref str n))
(n2 (string-cursor-next str n))) (n2 (string-cursor-next str n)))