diff options
| author | Eduardo Julian | 2017-04-15 19:19:42 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-04-15 19:19:42 -0400 |
| commit | b4e26d5fbdd29998a1fdcd223eb2319790c1b140 (patch) | |
| tree | fceb9ceeeb7b8458a0d39f06123539b5cecee82c | |
| parent | 04c99a1997664f03c9edda3b94b661c15809f4db (diff) | |
- Small refactorings.
| -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>] |