diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux index 273e1d0ae..db4de757c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux @@ -30,15 +30,15 @@ [meta [archive (#+ Archive)]]]]]]]) -(def: #export register +(def: .public register (-> Register Var) (|>> (///reference.local //reference.system) :assume)) -(def: #export capture +(def: .public capture (-> Register Var) (|>> (///reference.foreign //reference.system) :assume)) -(def: #export (let expression archive [valueS register bodyS]) +(def: .public (let expression archive [valueS register bodyS]) (Generator [Synthesis Register Synthesis]) (do ///////phase.monad [valueO (expression archive valueS) @@ -49,7 +49,7 @@ (_.closure (list (..register register))) (_.apply/* (list valueO)))))) -(def: #export (let! statement expression archive [valueS register bodyS]) +(def: .public (let! statement expression archive [valueS register bodyS]) (Generator! [Synthesis Register Synthesis]) (do ///////phase.monad [valueO (expression archive valueS) @@ -58,7 +58,7 @@ (_.local/1 (..register register) valueO) bodyO)))) -(def: #export (get expression archive [pathP valueS]) +(def: .public (get expression archive [pathP valueS]) (Generator [(List Member) Synthesis]) (do ///////phase.monad [valueO (expression archive valueS)] @@ -73,7 +73,7 @@ valueO (list.reversed pathP))))) -(def: #export (if expression archive [testS thenS elseS]) +(def: .public (if expression archive [testS thenS elseS]) (Generator [Synthesis Synthesis Synthesis]) (do ///////phase.monad [testO (expression archive testS) @@ -85,7 +85,7 @@ (_.closure (list)) (_.apply/* (list)))))) -(def: #export (if! statement expression archive [testS thenS elseS]) +(def: .public (if! statement expression archive [testS thenS elseS]) (Generator! [Synthesis Synthesis Synthesis]) (do ///////phase.monad [testO (expression archive testS) @@ -247,7 +247,7 @@ pattern_matching!) (_.statement (|> (_.var "error") (_.apply/* (list (_.string ////synthesis/case.pattern_matching_error))))))))) -(def: #export dependencies +(def: .public dependencies (-> Path (List Var)) (|>> ////synthesis/case.storage (get@ #////synthesis/case.dependencies) @@ -260,7 +260,7 @@ (#///////variable.Foreign register) (..capture register)))))) -(def: #export (case! statement expression archive [valueS pathP]) +(def: .public (case! statement expression archive [valueS pathP]) (Generator! [Synthesis Path]) (do ///////phase.monad [stack_init (expression archive valueS) @@ -271,7 +271,7 @@ (_.local/1 @savepoint (_.array (list))) pattern_matching!)))) -(def: #export (case statement expression archive [valueS pathP]) +(def: .public (case statement expression archive [valueS pathP]) (-> Phase! (Generator [Synthesis Path])) (|> [valueS pathP] (..case! statement expression archive) |