~ chicken-core (chicken-5) 84f293edc0ad83a990d898485ac4631f2346ec34

commit 84f293edc0ad83a990d898485ac4631f2346ec34
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sat Dec 21 20:18:39 2013 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Dec 21 20:18:39 2013 +1300

    Fix argument error when signaling invalid (surrogate) \U unicode escapes

diff --git a/library.scm b/library.scm
index c14d0698..e9e2dc7a 100644
--- a/library.scm
+++ b/library.scm
@@ -2546,7 +2546,7 @@ EOF
 		       ((#\U)
 			(let ([n (r-usequence "U" 8 16)])
 			  (if (##sys#unicode-surrogate? n)
-			      (##sys#read-error port (string-append "invalid escape (surrogate)" n))
+			      (##sys#read-error port "invalid escape (surrogate)" n)
 			      (loop (##sys#read-char-0 port) (r-cons-codepoint n lst)) )))
 		       ((#\\ #\' #\" #\|)
 			(loop (##sys#read-char-0 port) (cons c lst)))