~ chicken-core (chicken-5) 1e1395e0b7c5f97d06989ce7197f6ac9bf5889a1

commit 1e1395e0b7c5f97d06989ce7197f6ac9bf5889a1
Author:     felix <felix@y.(none)>
AuthorDate: Wed Aug 25 14:37:05 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Wed Aug 25 14:37:05 2010 +0200

    warn if escaped symbol syntax spans multiple lines

diff --git a/library.scm b/library.scm
index a6961e6f..dca1077b 100644
--- a/library.scm
+++ b/library.scm
@@ -2393,8 +2393,13 @@ EOF
 		       (##sys#reverse-list->string lst))
 		      (else
 		       (let ((c ((if esc read-unreserved-char-0 ##sys#read-char-0) port)))
-			 (case (and sep c)
+			 (case (and sep c) ; is sep is false, esc will be as well
 			   ((#\|) (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)