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.lux22
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/control/exception.lux b/stdlib/source/library/lux/control/exception.lux
index 073db8397..cf9c51105 100644
--- a/stdlib/source/library/lux/control/exception.lux
+++ b/stdlib/source/library/lux/control/exception.lux
@@ -96,15 +96,15 @@
[current_module meta.current_module_name
.let [descriptor (all text#composite "{" current_module "." name "}" text.new_line)
g!self (code.local name)]]
- (in (list (` (def (~ export_policy)
- (~ g!self)
- (All ((~ g!_) (~+ (list#each |type_variable|.format t_vars)))
- (..Exception [(~+ (list#each (the |input|.#type) inputs))]))
- (let [(~ g!descriptor) (~ (code.text descriptor))]
- [..#label (~ g!descriptor)
- ..#constructor (function ((~ g!self) [(~+ (list#each (the |input|.#binding) inputs))])
- ((~! text#composite) (~ g!descriptor)
- (~ (maybe.else (' "") body))))])))))))))
+ (in (list (` (def (, export_policy)
+ (, g!self)
+ (All ((, g!_) (,* (list#each |type_variable|.format t_vars)))
+ (..Exception [(,* (list#each (the |input|.#type) inputs))]))
+ (let [(, g!descriptor) (, (code.text descriptor))]
+ [..#label (, g!descriptor)
+ ..#constructor (function ((, g!self) [(,* (list#each (the |input|.#binding) inputs))])
+ ((,! text#composite) (, g!descriptor)
+ (, (maybe.else (' "") body))))])))))))))
(def (report' entries)
(-> (List [Text Text]) Text)
@@ -139,9 +139,9 @@
(def .public report
(syntax (_ [entries (<>.many (<>.and <code>.any <code>.any))])
- (in (list (` ((~! ..report') (list (~+ (|> entries
+ (in (list (` ((,! ..report') (list (,* (|> entries
(list#each (function (_ [header message])
- (` [(~ header) (~ message)]))))))))))))
+ (` [(, header) (, message)]))))))))))))
(def .public (listing format entries)
(All (_ a)