~ chicken-core (chicken-5) 6d8290e3a8e2fc31dee901234cc7376e3ff3f528

commit 6d8290e3a8e2fc31dee901234cc7376e3ff3f528
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jan 11 11:39:21 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jan 11 11:39:21 2012 +0100

    escape single-char symbol if it is a special character (fixes #772)

diff --git a/library.scm b/library.scm
index 30d47885..bc1dbe96 100644
--- a/library.scm
+++ b/library.scm
@@ -3182,6 +3182,7 @@ EOF
 		   (let ((c (##core#inline "C_subchar" str 0)))
 		     (cond ((or (eq? #\. c) (eq? #\# c) (eq? #\; c) (eq? #\, c) (eq? #\| c))
 			    #f)
+			   ((specialchar? c) #f)
 			   ((char-numeric? c) #f)
 			   (else #t))))
 		  (else