~ chicken-core (chicken-5) 1e0bc6bf89e26ecb0004fb9a280295d7a4ec216c

commit 1e0bc6bf89e26ecb0004fb9a280295d7a4ec216c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jan 8 11:23:53 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jan 8 11:23:53 2011 +0100

    reader fixes for escaping single-char symbols

diff --git a/library.scm b/library.scm
index 3c1b7d5b..22e34e29 100644
--- a/library.scm
+++ b/library.scm
@@ -3064,7 +3064,7 @@ EOF
 	    (cond ((eq? len 0) #f)
 		  ((eq? len 1)
 		   (let ((c (##core#inline "C_subchar" str 0)))
-		     (cond ((or (eq? #\. c) (eq? #\# c)) #f)
+		     (cond ((or (eq? #\. c) (eq? #\# c) (eq? #\; c) (eq? #\, c)) #f)
 			   ((char-numeric? c) #f)
 			   (else #t))))
 		  (else