From 79c2988c1b514657cc384070e66539e51e105987 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 22 Aug 2018 22:59:20 -0400
Subject: No more escaping of vertical-tab.

---
 luxc/src/lux/lexer.clj                           | 2 --
 stdlib/source/lux/compiler/default/syntax.lux    | 4 +---
 stdlib/test/test/lux/compiler/default/syntax.lux | 2 +-
 3 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/luxc/src/lux/lexer.clj b/luxc/src/lux/lexer.clj
index d52464d5d..02f1e088a 100644
--- a/luxc/src/lux/lexer.clj
+++ b/luxc/src/lux/lexer.clj
@@ -37,8 +37,6 @@
           (if (= \\ current-char)
             (do (assert (< (+ 1 idx) line-length) (str "[Lexer Error] Text is too short for escaping: " raw-line " " idx))
               (case (.charAt raw-line (+ 1 idx))
-                \v (do (.append buffer "\u000B")
-                     (recur (+ 2 idx)))
                 \n (do (.append buffer "\n")
                      (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 06672b2aa..89087d482 100644
--- a/stdlib/source/lux/compiler/default/syntax.lux
+++ b/stdlib/source/lux/compiler/default/syntax.lux
@@ -139,7 +139,6 @@
              [code l.any]
              (case code
                ## Handle special cases.
-               "v" (wrap [2 "\v"])
                "n" (wrap [2 ..new-line])
                (^ (static ..text-delimiter)) (wrap [2 ..text-delimiter])
                (^ (static ..escape)) (wrap [2 ..escape])
@@ -619,8 +618,7 @@
             (^template [<input> <output>]
               (^ (char <input>))
               (!find-next-escape 2 next-escape end source-code total <output>))
-            (["v" "\v"]
-             ["n" (static ..new-line)]
+            (["n" (static ..new-line)]
              [(~~ (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 14de95b52..5ac8e16da 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"
+           space " \n"
            invalid-range (format digits delimiters space)
            char-gen (|> r.nat
                         (:: @ map (|>> (n/% 256) (n/max 1)))
-- 
cgit v1.2.3