diff options
author | Eduardo Julian | 2022-06-26 02:57:13 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-06-26 02:57:13 -0400 |
commit | 716ca5377386ca87eded7dd514ccc17f8ed281c3 (patch) | |
tree | 30ecd03de0f32057d453ab2c342fd17f88732ae3 /stdlib/source/library/lux/control/exception.lux | |
parent | cfdc546e6834ceeb78cb692d17fd5c60695be982 (diff) |
De-sigil-ification: suffix : [Part 16]
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/control/exception.lux | 6 |
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 |