aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/control/exception.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/control/exception.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/library/lux/control/exception.lux b/stdlib/source/library/lux/control/exception.lux
index bbd25489e..98e0c6f72 100644
--- a/stdlib/source/library/lux/control/exception.lux
+++ b/stdlib/source/library/lux/control/exception.lux
@@ -76,7 +76,7 @@
{//.#Success []}
(..except exception message)))
-(def exception
+(def exceptionP
(Parser [Code (List |type_variable|.Variable) [Text (List |input|.Input)] (Maybe Code)])
(let [private (is (Parser [(List |type_variable|.Variable) [Text (List |input|.Input)] (Maybe Code)])
(all <>.and
@@ -90,8 +90,8 @@
(<>.and (<>#in (` .private)) private)
)))
-(def .public exception:
- (syntax (_ [[export_policy t_vars [name inputs] body] ..exception])
+(def .public exception
+ (syntax (_ [[export_policy t_vars [name inputs] body] ..exceptionP])
(macro.with_symbols [g!_ g!descriptor]
(do meta.monad
[current_module meta.current_module_name