From b4e26d5fbdd29998a1fdcd223eb2319790c1b140 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 15 Apr 2017 19:19:42 -0400
Subject: - Small refactorings.

---
 stdlib/source/lux/data/text/lexer.lux | 3 ++-
 stdlib/source/lux/macro/ast.lux       | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/stdlib/source/lux/data/text/lexer.lux b/stdlib/source/lux/data/text/lexer.lux
index 9146ca136..34614c545 100644
--- a/stdlib/source/lux/data/text/lexer.lux
+++ b/stdlib/source/lux/data/text/lexer.lux
@@ -240,7 +240,8 @@
       (case (text;split (text;size test) input)
         #;None              (#E;Error "")
         (#;Some [_ input']) (#E;Success [input' test]))
-      (#E;Error ($_ Text/append "Invalid match: " test " @ " (:: text;Codec<Text,Text> encode input))))
+      (let [(^open "T/") text;Codec<Text,Text>]
+        (#E;Error ($_ Text/append "Invalid match: " (T/encode test) " @ " (T/encode input)))))
     ))
 
 (def: #export (sep-by sep lexer)
diff --git a/stdlib/source/lux/macro/ast.lux b/stdlib/source/lux/macro/ast.lux
index ff572c6bd..4fd9c8b2c 100644
--- a/stdlib/source/lux/macro/ast.lux
+++ b/stdlib/source/lux/macro/ast.lux
@@ -68,7 +68,7 @@
       ([#;BoolS   Eq<Bool>]
        [#;NatS    Eq<Nat>]
        [#;IntS    Eq<Int>]
-       [#;DegS   Eq<Deg>]
+       [#;DegS    Eq<Deg>]
        [#;RealS   Eq<Real>]
        [#;CharS   char;Eq<Char>]
        [#;TextS   Eq<Text>]
-- 
cgit v1.2.3