diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/control/exception.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/control/exception.lux b/stdlib/source/lux/control/exception.lux index f2635b6b2..86c2a8ddb 100644 --- a/stdlib/source/lux/control/exception.lux +++ b/stdlib/source/lux/control/exception.lux @@ -84,8 +84,8 @@ (syntax: #export (exception: {export csr.export} {t-vars (p.default (list) csr.type-variables)} - {[name inputs] (p.either (p.seq s.local-symbol (wrap (list))) - (s.form (p.seq s.local-symbol (p.some csr.typed-input))))} + {[name inputs] (p.either (p.seq s.local-identifier (wrap (list))) + (s.form (p.seq s.local-identifier (p.some csr.typed-input))))} {body (p.maybe s.any)}) {#.doc (doc "Define a new exception type." "It moslty just serves as a way to tag error messages for later catching." @@ -100,7 +100,7 @@ (do @ [current-module macro.current-module-name #let [descriptor ($_ text/compose "{" current-module "." name "}" "\n") - g!self (code.local-symbol name)]] + g!self (code.local-identifier name)]] (wrap (list (` (def: (~+ (csw.export export)) (~ g!self) (All [(~+ (csw.type-variables t-vars))] |