diff options
Diffstat (limited to 'stdlib/source/library/lux/debug.lux')
-rw-r--r-- | stdlib/source/library/lux/debug.lux | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/stdlib/source/library/lux/debug.lux b/stdlib/source/library/lux/debug.lux index 8031919ca..5bf180093 100644 --- a/stdlib/source/library/lux/debug.lux +++ b/stdlib/source/library/lux/debug.lux @@ -382,7 +382,7 @@ (exception .public (cannot_represent_value [type Type]) (exception.report - "Type" (%.type type))) + (list ["Type" (%.type type)]))) (type Representation (-> Any Text)) @@ -536,8 +536,8 @@ (exception .public (type_hole [location Location type Type]) (exception.report - "Location" (%.location location) - "Type" (%.type type))) + (list ["Location" (%.location location)] + ["Type" (%.type type)]))) (def .public hole (syntax (_ []) @@ -558,7 +558,7 @@ (exception .public (unknown_local_binding [name Text]) (exception.report - "Name" (%.text name))) + (list ["Name" (%.text name)]))) (def .public here (syntax (_ [targets (is (<code>.Parser (List Target)) @@ -591,14 +591,13 @@ (in (list (` (..log! ("lux text concat" (, (code.text (%.format (%.location location) text.new_line))) ((,! exception.report) - (,* (|> targets - (list#each (function (_ [name format]) - (let [format (case format - {.#None} - (` (,! ..inspection)) - - {.#Some format} - format)] - (list (code.text name) - (` ((, format) (, (code.local name)))))))) - list#conjoint))))))))))) + (.list (,* (|> targets + (list#each (function (_ [name format]) + (let [format (case format + {.#None} + (` (,! ..inspection)) + + {.#Some format} + format)] + (` [(, (code.text name)) + ((, format) (, (code.local name)))])))))))))))))))) |