aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/text/escape.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/data/text/escape.lux')
-rw-r--r--stdlib/source/library/lux/data/text/escape.lux10
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/library/lux/data/text/escape.lux b/stdlib/source/library/lux/data/text/escape.lux
index 08724a881..9ca9ecfe1 100644
--- a/stdlib/source/library/lux/data/text/escape.lux
+++ b/stdlib/source/library/lux/data/text/escape.lux
@@ -188,7 +188,7 @@
limit']))
(#try.Failure error)
- (exception.throw ..invalid_unicode_escape [current offset])))
+ (exception.except ..invalid_unicode_escape [current offset])))
(def: #export (un_escape text)
(-> Text (Try Text))
@@ -223,11 +223,11 @@
(do try.monad
[[previous' current' limit'] (..unicode_un_escape offset previous current limit)]
(recur 0 previous' current' limit'))
- (exception.throw ..invalid_unicode_escape [text offset])))
+ (exception.except ..invalid_unicode_escape [text offset])))
invalid_sigil
- (exception.throw ..invalid_escape [text offset invalid_sigil]))
- (exception.throw ..dangling_escape [text])))
+ (exception.except ..invalid_escape [text offset invalid_sigil]))
+ (exception.except ..dangling_escape [text])))
_
(recur (inc offset) previous current limit))
@@ -238,7 +238,7 @@
(syntax: #export (escaped {literal <code>.text})
(case (..un_escape literal)
(#try.Success un_escaped)
- (wrap (list (code.text un_escaped)))
+ (in (list (code.text un_escaped)))
(#try.Failure error)
(meta.failure error)))