From b007c25050069cc062e2a7310f5ba23e7b7f55ec Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 15 Jul 2013 07:38:04 +0900 Subject: [PATCH] Typo in string-upcase-ascii. --- lib/chibi/string.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/string.scm b/lib/chibi/string.scm index b27386b4..cc02d724 100644 --- a/lib/chibi/string.scm +++ b/lib/chibi/string.scm @@ -188,4 +188,4 @@ (define (string-upcase-ascii s) (call-with-output-string (lambda (out) - (string-for-each (lambda (ch) (write-char (char-downcase ch) out)) s)))) + (string-for-each (lambda (ch) (write-char (char-upcase ch) out)) s))))