From 6af36bc25d3e4494fab5c350876359e456a9e172 Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Tue, 30 Aug 2011 17:17:31 -0600 Subject: [PATCH] [honu] treat #\return like #\newline --- collects/honu/core/read.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/honu/core/read.rkt b/collects/honu/core/read.rkt index cdc4318760..c0caa43a23 100644 --- a/collects/honu/core/read.rkt +++ b/collects/honu/core/read.rkt @@ -42,7 +42,7 @@ (define-lex-abbrev line-comment (:: (:or "#" "//") (:* (:~ "\n")) ;; we might hit eof before a \n - (:? "\n"))) + (:? "\n" "\r"))) (define (replace-escapes string) (define replacements '([#px"\\\\n" "\n"] @@ -60,7 +60,7 @@ #; [line-comment (token-whitespace)] [(:or "#" "//") (token-end-of-line-comment)] - ["\n" (token-whitespace)] + [(:? "\n" "\r") (token-whitespace)] [number (token-number (string->number lexeme))] #; [block-comment (token-whitespace)]