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)]