diff options
Diffstat (limited to 'stdlib/source/library/lux/control/exception.lux')
| -rw-r--r-- | stdlib/source/library/lux/control/exception.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/control/exception.lux b/stdlib/source/library/lux/control/exception.lux index 8358da7b3..65ddd84f1 100644 --- a/stdlib/source/library/lux/control/exception.lux +++ b/stdlib/source/library/lux/control/exception.lux @@ -73,15 +73,15 @@ (All [a] (-> a (Try a))) (#//.Success value)) -(def: #export (construct exception message) - {#.doc "Constructs an exception."} +(def: #export (error exception message) + {#.doc "Constructs an error message from an exception."} (All [e] (-> (Exception e) e Text)) ((get@ #..constructor exception) message)) (def: #export (except exception message) {#.doc "Decorate an error message with an Exception and lift it into the error-handling context."} (All [e a] (-> (Exception e) e (Try a))) - (#//.Failure (..construct exception message))) + (#//.Failure (..error exception message))) (def: #export (assertion exception message test) (All [e] (-> (Exception e) e Bit (Try Any))) @@ -161,7 +161,7 @@ (list\map (function (_ [header message]) (` [(~ header) (~ message)]))))))))))) -(def: #export (enumerate format entries) +(def: #export (listing format entries) {#.doc (doc "A numbered report of the entries on a list." "NOTE: 0-based numbering.")} (All [a] @@ -198,10 +198,10 @@ (#//.Failure error) (#//.Failure (case error "" - (..construct exception message) + (..error exception message) _ - (..decorate (..construct exception message) error))) + (..decorate (..error exception message) error))) success success)) |