diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux index 25da6b501..b09071726 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux @@ -36,15 +36,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) @@ -52,7 +52,7 @@ (in (_.let (list [(..register register) valueO]) bodyO)))) -(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) @@ -60,7 +60,7 @@ elseO (expression archive elseS)] (in (_.if testO thenO elseO)))) -(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)] @@ -214,7 +214,7 @@ (try_pm (_.raise/1 (_.string "Invalid expression for pattern-matching."))) (pattern_matching' expression archive pathP))) -(def: #export (case expression archive [valueS pathP]) +(def: .public (case expression archive [valueS pathP]) (Generator [Synthesis Path]) (do {! ///////phase.monad} [valueO (expression archive valueS)] |