From 5e4fa521851cfd9596f0f68706177af34e5d5ed1 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 7 May 2017 17:20:09 +0900 Subject: [PATCH] =?UTF-8?q?bug=20in=20string-titlecase,=20string-cursor>?= =?UTF-8?q?=3D=3F=20doesn't=20take=20a=20string=20arg?= --- lib/srfi/129/titlecase.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/129/titlecase.scm b/lib/srfi/129/titlecase.scm index 35905dca..5a89fd2c 100644 --- a/lib/srfi/129/titlecase.scm +++ b/lib/srfi/129/titlecase.scm @@ -18,7 +18,7 @@ (let lp ((n (string-cursor-start str)) (prev-caseless? #t) (result '())) - (if (string-cursor>=? str n end) + (if (string-cursor>=? n end) (list->string (reverse result)) (let ((ch (string-cursor-ref str n)) (n2 (string-cursor-next str n)))