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/loop.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/loop.lux b/lux-jvm/source/luxc/lang/translation/jvm/loop.lux
index 40f8ef0de..bd1e29d0f 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/loop.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/loop.lux
@@ -36,11 +36,11 @@
     _
     false))
 
-(def: #export (recur translate archive argsS)
+(def: .public (recur translate archive argsS)
   (Generator (List Synthesis))
   (do {@ phase.monad}
     [[@begin start] generation.anchor
-     #let [pairs (|> argsS
+     .let [pairs (|> argsS
                      list.enumeration
                      (list@map (function (_ [register argument])
                                  [(n.+ start register) argument])))]
@@ -58,7 +58,7 @@
                                   (in function.identity)
                                   (translate archive argS))))
                          pairs)
-     #let [storesI+ (list@map (function (_ [register argS])
+     .let [storesI+ (list@map (function (_ [register argS])
                                 (: Inst
                                    (if (invariant? register argS)
                                      function.identity
@@ -68,14 +68,14 @@
              (_.fuse storesI+)
              (_.GOTO @begin)))))
 
-(def: #export (scope translate archive [start initsS+ iterationS])
+(def: .public (scope translate archive [start initsS+ iterationS])
   (Generator [Nat (List Synthesis) Synthesis])
   (do {@ phase.monad}
     [@begin _.make_label
      initsI+ (monad.map @ (translate archive) initsS+)
      iterationI (generation.with_anchor [@begin start]
                   (translate archive iterationS))
-     #let [initializationI (|> (list.enumeration initsI+)
+     .let [initializationI (|> (list.enumeration initsI+)
                                (list@map (function (_ [register initI])
                                            (|>> initI
                                                 (_.ASTORE (n.+ start register)))))
-- 
cgit v1.2.3