~ chicken-core (chicken-5) 366617ef176c0fcb4a883569b086cd00267a065f

commit 366617ef176c0fcb4a883569b086cd00267a065f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 18 05:52:19 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Aug 18 05:52:19 2010 -0400

    new handling of symbol escape syntax should respect symbol-escape

diff --git a/library.scm b/library.scm
index 0025ba58..c4b99b0d 100644
--- a/library.scm
+++ b/library.scm
@@ -2400,7 +2400,7 @@ EOF
 		       (##sys#reverse-list->string lst))
 		      (else
 		       (let ((c ((if esc read-unreserved-char-0 ##sys#read-char-0) port)))
-			 (case c
+			 (case (and sep c)
 			   ((#\|) (loop (not esc) lst))
 			   ((#\\)
 			    (let ((c (##sys#read-char-0 port)))