[honu] treat #\return like #\newline

This commit is contained in:
Jon Rafkind 2011-08-30 17:17:31 -06:00
parent d88b75a9b7
commit 6af36bc25d

View File

@ -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)]