aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source
diff options
context:
space:
mode:
authorEduardo Julian2018-08-22 22:56:56 -0400
committerEduardo Julian2018-08-22 22:56:56 -0400
commitf4f1d14416770cc223676a7d89ed15a11222ef1b (patch)
treedc7056dbf1f9dbc21b999dbe987c06241439cafd /stdlib/source
parent533864f86be183cbbb7c11516910acf711d281f4 (diff)
No more escaping of carriage-return.
Diffstat (limited to 'stdlib/source')
-rw-r--r--stdlib/source/lux/compiler/default/syntax.lux5
1 files changed, 1 insertions, 4 deletions
diff --git a/stdlib/source/lux/compiler/default/syntax.lux b/stdlib/source/lux/compiler/default/syntax.lux
index aa77be1e5..06672b2aa 100644
--- a/stdlib/source/lux/compiler/default/syntax.lux
+++ b/stdlib/source/lux/compiler/default/syntax.lux
@@ -59,7 +59,6 @@
(def: digits+ (format "_" ..digits))
(def: white-space " ")
-(def: carriage-return "\r")
(def: new-line "\n")
## (def: new-line^ (l.this new-line))
@@ -142,7 +141,6 @@
## Handle special cases.
"v" (wrap [2 "\v"])
"n" (wrap [2 ..new-line])
- "r" (wrap [2 "\r"])
(^ (static ..text-delimiter)) (wrap [2 ..text-delimiter])
(^ (static ..escape)) (wrap [2 ..escape])
@@ -623,7 +621,6 @@
(!find-next-escape 2 next-escape end source-code total <output>))
(["v" "\v"]
["n" (static ..new-line)]
- ["r" "\r"]
[(~~ (static ..escape)) (static ..escape)])
(^ (char (~~ (static ..text-delimiter))))
@@ -878,7 +875,7 @@
(!inc offset)
source-code]))
([(~~ (static ..white-space)) #.column]
- [(~~ (static ..carriage-return)) #.column])
+ [(~~ (static text.carriage-return)) #.column])
(^ (char (~~ (static ..new-line))))
(recur tracker [(!new-line where) (!inc offset) source-code])