diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/tool/compiler/phase/extension.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/extension.lux b/stdlib/source/lux/tool/compiler/phase/extension.lux index 9d9563eba..4b00c946f 100644 --- a/stdlib/source/lux/tool/compiler/phase/extension.lux +++ b/stdlib/source/lux/tool/compiler/phase/extension.lux @@ -8,7 +8,7 @@ [data ["." error (#+ Error)] ["." text ("#@." order) - format] + ["%" format (#+ Format format)]] [collection ["." list ("#@." functor)] ["." dictionary (#+ Dictionary)]]]] @@ -40,26 +40,26 @@ (exception: #export (cannot-overwrite {name Name}) (exception.report - ["Extension" (%t name)])) + ["Extension" (%.text name)])) (exception: #export (incorrect-arity {name Name} {arity Nat} {args Nat}) (exception.report - ["Extension" (%t name)] - ["Expected" (%n arity)] - ["Actual" (%n args)])) + ["Extension" (%.text name)] + ["Expected" (%.nat arity)] + ["Actual" (%.nat args)])) (exception: #export [a] (invalid-syntax {name Name} {%format (Format a)} {inputs (List a)}) (exception.report - ["Extension" (%t name)] + ["Extension" (%.text name)] ["Inputs" (exception.enumerate %format inputs)])) (exception: #export [s i o] (unknown {name Name} {bundle (Bundle s i o)}) (exception.report - ["Extension" (%t name)] + ["Extension" (%.text name)] ["Available" (|> bundle dictionary.keys (list.sort text@<) - (exception.enumerate %t))])) + (exception.enumerate %.text))])) (def: #export (install name handler) (All [s i o] |