From 533864f86be183cbbb7c11516910acf711d281f4 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 22 Aug 2018 22:54:59 -0400 Subject: No more escaping of form-feed. --- luxc/src/lux/lexer.clj | 2 -- stdlib/source/lux/compiler/default/syntax.lux | 2 -- stdlib/test/test/lux/compiler/default/syntax.lux | 2 +- 3 files changed, 1 insertion(+), 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 [#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))) -- cgit v1.2.3