aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/control/exception.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/control/exception.lux')
-rw-r--r--stdlib/source/library/lux/control/exception.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/control/exception.lux b/stdlib/source/library/lux/control/exception.lux
index cf00522fa..bdca98684 100644
--- a/stdlib/source/library/lux/control/exception.lux
+++ b/stdlib/source/library/lux/control/exception.lux
@@ -47,7 +47,7 @@
(let [reference (value@ #label exception)]
(if (text.starts_with? reference error)
(#//.Success (|> error
- (text.clip' (text.size reference))
+ (text.clip_since (text.size reference))
maybe.trusted
then))
(#//.Failure error)))))
@@ -138,9 +138,9 @@
tail))))
(syntax: .public (report [entries (<>.many (<code>.tuple (<>.and <code>.any <code>.any)))])
- (in (list (` ((~! report') (list (~+ (|> entries
- (list\each (function (_ [header message])
- (` [(~ header) (~ message)])))))))))))
+ (in (list (` ((~! ..report') (list (~+ (|> entries
+ (list\each (function (_ [header message])
+ (` [(~ header) (~ message)])))))))))))
(def: .public (listing format entries)
(All [a]