diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/macro/local.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/library/lux/macro/local.lux b/stdlib/source/library/lux/macro/local.lux index 1fc16815f..3e37d174f 100644 --- a/stdlib/source/library/lux/macro/local.lux +++ b/stdlib/source/library/lux/macro/local.lux @@ -45,7 +45,7 @@ (#try.Failure error)) #.None - (exception.throw ..unknown_module [name])))) + (exception.except ..unknown_module [name])))) (def: (push_one [name macro]) (-> [Name Macro] (Meta Any)) @@ -62,7 +62,7 @@ []]) (#.Some _) - (exception.throw ..cannot_shadow_definition [module_name definition_name])))))) + (exception.except ..cannot_shadow_definition [module_name definition_name])))))) (def: (pop_one name) (-> Name (Meta Any)) @@ -78,7 +78,7 @@ []]) #.None - (exception.throw ..unknown_definition [module_name definition_name])))))) + (exception.except ..unknown_definition [module_name definition_name])))))) (def: (pop_all macros self) (-> (List Name) Name Macro) @@ -88,12 +88,12 @@ [_ (monad.map ! ..pop_one macros) _ (..pop_one self) compiler meta.get_compiler] - (wrap (case (get@ #.expected compiler) - (#.Some _) - (list (' [])) - - #.None - (list))))))) + (in (case (get@ #.expected compiler) + (#.Some _) + (list (' [])) + + #.None + (list))))))) (def: #export (push macros) (-> (List [Name Macro]) (Meta Code)) @@ -103,4 +103,4 @@ g!pop (//.gensym "pop") _ (let [g!pop (: Name ["" (//code.format g!pop)])] (..push_one [g!pop (..pop_all (list\map product.left macros) g!pop)]))] - (wrap (` ((~ g!pop)))))) + (in (` ((~ g!pop)))))) |