~ chicken-core (chicken-5) c80fdbc89fab79b06b0faadb2a6241c74d7eaa00

commit c80fdbc89fab79b06b0faadb2a6241c74d7eaa00
Author:     felix <felix@y.(none)>
AuthorDate: Wed Aug 25 19:25:00 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Wed Aug 25 19:25:00 2010 +0200

    Revert "warn if escaped symbol syntax spans multiple lines"
    
    This reverts commit 1e1395e0b7c5f97d06989ce7197f6ac9bf5889a1.

diff --git a/library.scm b/library.scm
index dca1077b..a6961e6f 100644
--- a/library.scm
+++ b/library.scm
@@ -2393,13 +2393,8 @@ EOF
 		       (##sys#reverse-list->string lst))
 		      (else
 		       (let ((c ((if esc read-unreserved-char-0 ##sys#read-char-0) port)))
-			 (case (and sep c) ; is sep is false, esc will be as well
+			 (case (and sep c)
 			   ((#\|) (loop (not esc) lst))
-			   ((#\newline)
-			    (##sys#read-warning
-			     port "escaped symbol syntax spans multiple lines"
-			     (##sys#reverse-list->string lst))
-			    (loop esc (cons #\newline lst)))
 			   ((#\\)
 			    (let ((c (##sys#read-char-0 port)))
 			      (if (eof-object? c)