diff options
| -rw-r--r-- | stdlib/source/lux/data/text/lexer.lux | 3 | ||||
| -rw-r--r-- | 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>] |