From f621a133e6e0a516c0586270fea8eaffb4829d82 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 8 Aug 2021 17:56:15 -0400
Subject: No more #export magic syntax.

---
 lux-jvm/source/luxc/lang/translation/jvm/function.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'lux-jvm/source/luxc/lang/translation/jvm/function.lux')

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/function.lux b/lux-jvm/source/luxc/lang/translation/jvm/function.lux
index bb592ca32..ac2adaaaa 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/function.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/function.lux
@@ -110,7 +110,7 @@
   (-> Phase Archive (Type Class) Arity (Environment Synthesis) (Operation Inst))
   (do {@ phase.monad}
     [captureI+ (monad.map @ (generate archive) env)
-     #let [argsI (if (poly_arg? arity)
+     .let [argsI (if (poly_arg? arity)
                    (|> (nullsI (dec arity))
                        (list (_.int +0))
                        _.fuse)
@@ -260,7 +260,7 @@
                      casesI
                      ))))
 
-(def: #export with_environment
+(def: .public with_environment
   (-> (Environment Synthesis) Def)
   (|>> list.enumeration
        (list@map (.function (_ [env_idx env_source])
@@ -276,7 +276,7 @@
         def.fuse)
     function.identity))
 
-(def: #export (with_function generate archive @begin class env arity bodyI)
+(def: .public (with_function generate archive @begin class env arity bodyI)
   (-> Phase Archive Label Text (Environment Synthesis) Arity Inst
       (Operation [Def Inst]))
   (let [classD (type.class class (list))
@@ -303,7 +303,7 @@
       [instanceI (..instance generate archive classD arity env)]
       (in [functionD instanceI]))))
 
-(def: #export (function' forced_context generate archive [env arity bodyS])
+(def: .public (function' forced_context generate archive [env arity bodyS])
   (-> (Maybe Context) (Generator Abstraction))
   (do {! phase.monad}
     [@begin _.make_label
@@ -319,9 +319,9 @@
                                 (generation.with_new_context archive
                                   (generation.with_anchor [@begin 1]
                                     (generate archive bodyS))))
-     #let [function_class (//.class_name function_context)]
+     .let [function_class (//.class_name function_context)]
      [functionD instanceI] (..with_function generate archive @begin function_class env arity bodyI)
-     #let [directive [function_class
+     .let [directive [function_class
                       (def.class #$.V1_6 #$.Public $.finalC
                                  function_class (list)
                                  //.$Function (list)
@@ -335,16 +335,16 @@
          (in []))]
     (in instanceI)))
 
-(def: #export function
+(def: .public function
   (Generator Abstraction)
   (..function' #.None))
 
-(def: #export (call generate archive [functionS argsS])
+(def: .public (call generate archive [functionS argsS])
   (Generator Apply)
   (do {@ phase.monad}
     [functionI (generate archive functionS)
      argsI (monad.map @ (generate archive) argsS)
-     #let [applyI (|> argsI
+     .let [applyI (|> argsI
                       (list.chunk //runtime.num_apply_variants)
                       (list@map (.function (_ chunkI+)
                                   (|>> (_.CHECKCAST //.$Function)
-- 
cgit v1.2.3