From 332dced8629c6acaa532f8800bc29a93576d7b6a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 26 Feb 2008 22:15:30 +0000
Subject: [PATCH] r6rs reader: string escape correction

svn: r8808
---
 collects/r6rs/private/readtable.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/r6rs/private/readtable.ss b/collects/r6rs/private/readtable.ss
index 08c7f3fb7f..304b585681 100644
--- a/collects/r6rs/private/readtable.ss
+++ b/collects/r6rs/private/readtable.ss
@@ -277,10 +277,10 @@
                                     col pos
                                     (and pos (+ 1 len)))))]
                             [(or (eq? char #\tab)
-                                 ;(eq? char #\newline)
-                                 ;(eq? char #\return)
-                                 ;(eq? char #\u85)
-                                 ;(eqv? char #\u2028)
+                                 (eq? char #\newline)
+                                 (eq? char #\return)
+                                 (eq? char #\u85)
+                                 (eqv? char #\u2028)
                                  (eq? (char-general-category char) 'zs))
                              (let ([wm (regexp-match-positions #px"^(?:\t|\\p{Zs})*(?:\r\n|\r\u85|[\r\n\u85\u2028])(?:\t|\\p{Zs})*"
                                                                bytes