diff options
| author | Eduardo Julian | 2018-08-22 22:54:59 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-08-22 22:54:59 -0400 |
| commit | 533864f86be183cbbb7c11516910acf711d281f4 (patch) | |
| tree | 690fc50c71b56c222248bbd4f0069a04fe237ff1 | |
| parent | bf893b3aa2b43c11b1cbb95fb8641f6ae6aa06b0 (diff) | |
No more escaping of form-feed.
Diffstat (limited to '')
| -rw-r--r-- | luxc/src/lux/lexer.clj | 2 | ||||
| -rw-r--r-- | stdlib/source/lux/compiler/default/syntax.lux | 2 | ||||
| -rw-r--r-- | stdlib/test/test/lux/compiler/default/syntax.lux | 2 |
3 files changed, 1 insertions, 5 deletions
diff --git a/luxc/src/lux/lexer.clj b/luxc/src/lux/lexer.clj index 981b35178..00964a057 100644 --- a/luxc/src/lux/lexer.clj +++ b/luxc/src/lux/lexer.clj @@ -43,8 +43,6 @@ (recur (+ 2 idx))) \r (do (.append buffer "\r") (recur (+ 2 idx))) - \f (do (.append buffer "\f") - (recur (+ 2 idx))) \" (do (.append buffer "\"") (recur (+ 2 idx))) \\ (do (.append buffer "\\") diff --git a/stdlib/source/lux/compiler/default/syntax.lux b/stdlib/source/lux/compiler/default/syntax.lux index 1d1572859..aa77be1e5 100644 --- a/stdlib/source/lux/compiler/default/syntax.lux +++ b/stdlib/source/lux/compiler/default/syntax.lux @@ -143,7 +143,6 @@ "v" (wrap [2 "\v"]) "n" (wrap [2 ..new-line]) "r" (wrap [2 "\r"]) - "f" (wrap [2 "\f"]) (^ (static ..text-delimiter)) (wrap [2 ..text-delimiter]) (^ (static ..escape)) (wrap [2 ..escape]) @@ -625,7 +624,6 @@ (["v" "\v"] ["n" (static ..new-line)] ["r" "\r"] - ["f" "\f"] [(~~ (static ..escape)) (static ..escape)]) (^ (char (~~ (static ..text-delimiter)))) diff --git a/stdlib/test/test/lux/compiler/default/syntax.lux b/stdlib/test/test/lux/compiler/default/syntax.lux index 6a447e9c1..e8b5bb5b4 100644 --- a/stdlib/test/test/lux/compiler/default/syntax.lux +++ b/stdlib/test/test/lux/compiler/default/syntax.lux @@ -30,7 +30,7 @@ (do r.Monad<Random> [#let [digits "0123456789" delimiters "()[]{}#.\"" - space "\v \n\r\f" + space "\v \n\r" invalid-range (format digits delimiters space) char-gen (|> r.nat (:: @ map (|>> (n/% 256) (n/max 1))) |