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/host/jvm.lux | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

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

diff --git a/lux-jvm/source/luxc/lang/host/jvm.lux b/lux-jvm/source/luxc/lang/host/jvm.lux
index 5c854d646..a9b73c8b0 100644
--- a/lux-jvm/source/luxc/lang/host/jvm.lux
+++ b/lux-jvm/source/luxc/lang/host/jvm.lux
@@ -36,22 +36,22 @@
   ["#::."
    (new [])])
 
-(type: #export Def
+(type: .public Def
   (-> org/objectweb/asm/ClassWriter org/objectweb/asm/ClassWriter))
 
-(type: #export Inst
+(type: .public Inst
   (-> org/objectweb/asm/MethodVisitor org/objectweb/asm/MethodVisitor))
 
-(type: #export Label
+(type: .public Label
   org/objectweb/asm/Label)
 
-(type: #export Visibility
+(type: .public Visibility
   #Public
   #Protected
   #Private
   #Default)
 
-(type: #export Version
+(type: .public Version
   #V1_1
   #V1_2
   #V1_3
@@ -61,20 +61,20 @@
   #V1_7
   #V1_8)
 
-(type: #export ByteCode
+(type: .public ByteCode
   Binary)
 
-(type: #export Definition
+(type: .public Definition
   [Text ByteCode])
 
-(type: #export Anchor
+(type: .public Anchor
   [Label Register])
 
-(type: #export Host
+(type: .public Host
   (generation.Host Inst Definition))
 
 (template [<name> <base>]
-  [(type: #export <name>
+  [(type: .public <name>
      (<base> ..Anchor ..Inst ..Definition))]
 
   [State     generation.State]
@@ -85,7 +85,7 @@
   [Extender  generation.Extender]
   )
 
-(type: #export (Generator i)
+(type: .public (Generator i)
   (-> Phase Archive i (Operation Inst)))
 
 (syntax: (config: {type <code>.local_identifier}
@@ -98,23 +98,23 @@
         g!_left (code.local_identifier "_left")
         g!_right (code.local_identifier "_right")
         g!options+ (list/map (function (_ option)
-                               (` (def: (~' #export) (~ (code.local_identifier option))
+                               (` (def: .public (~ (code.local_identifier option))
                                     (~ g!type)
                                     (|> (~ g!none)
                                         (set@ (~ (code.local_tag option)) #1)))))
                              options)]
-    (in (list& (` (type: (~' #export) (~ g!type)
+    (in (list& (` (type: .public (~ g!type)
                     (~ (code.record (list/map (function (_ tag)
                                                 [tag (` .Bit)])
                                               g!tags+)))))
 
-               (` (def: (~' #export) (~ g!none)
+               (` (def: .public (~ g!none)
                     (~ g!type)
                     (~ (code.record (list/map (function (_ tag)
                                                 [tag (` #0)])
                                               g!tags+)))))
 
-               (` (def: (~' #export) ((~ (code.local_identifier ++)) (~ g!_left) (~ g!_right))
+               (` (def: .public ((~ (code.local_identifier ++)) (~ g!_left) (~ g!_right))
                     (-> (~ g!type) (~ g!type) (~ g!type))
                     (~ (code.record (list/map (function (_ tag)
                                                 [tag (` (or (get@ (~ tag) (~ g!_left))
@@ -127,11 +127,11 @@
 (config: Method_Config noneM ++M [finalM staticM synchronizedM strictM])
 (config: Field_Config  noneF ++F [finalF staticF transientF volatileF])
 
-(def: #export new_label
+(def: .public new_label
   (-> Any Label)
   (function (_ _)
     (org/objectweb/asm/Label::new)))
 
-(def: #export (simple_class name)
+(def: .public (simple_class name)
   (-> Text (Type Class))
   (type.class name (list)))
-- 
cgit v1.2.3