~ chicken-core (chicken-5) 29781eb8d8e46a6dcfa7777818675af41a9368b0

commit 29781eb8d8e46a6dcfa7777818675af41a9368b0
Author:     felix <felix@y.(none)>
AuthorDate: Wed Aug 25 14:37:05 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Wed Aug 25 19:26:07 2010 +0200

    warn if escaped symbol syntax spans multiple lines

diff --git a/library.scm b/library.scm
index 2ae17447..b1566295 100644
--- a/library.scm
+++ b/library.scm
@@ -2388,8 +2388,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)