From dda05bca0956af5e5b3875c4cc36e61aa04772e4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 00:07:08 -0400
Subject: Made the "#" character great again!

---
 lux-jvm/source/luxc/lang/translation/jvm.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

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

diff --git a/lux-jvm/source/luxc/lang/translation/jvm.lux b/lux-jvm/source/luxc/lang/translation/jvm.lux
index 6a641f0ee..a44bc67e3 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm.lux
@@ -83,20 +83,20 @@
 (def: (class_value class_name class)
   (-> Text (java/lang/Class java/lang/Object) (Try Any))
   (case (java/lang/Class::getField ..value_field class)
-    {#try.Success field}
-    (case (java/lang/reflect/Field::get #.None field)
-      {#try.Success ?value}
+    {try.#Success field}
+    (case (java/lang/reflect/Field::get {.#None} field)
+      {try.#Success ?value}
       (case ?value
-        {#.Some value}
-        {#try.Success value}
+        {.#Some value}
+        {try.#Success value}
         
-        #.None
+        {.#None}
         (exception.except ..invalid_value class_name))
       
-      {#try.Failure error}
+      {try.#Failure error}
       (exception.except ..cannot_load [class_name error]))
     
-    {#try.Failure error}
+    {try.#Failure error}
     (exception.except ..invalid_field [class_name ..value_field error])))
 
 (def: class_path_separator ".")
@@ -116,14 +116,14 @@
   (-> Library java/lang/ClassLoader generation.Context Inst (Try [Any Definition]))
   (let [eval_class (..class_name context)
         bytecode_name (..bytecode_name eval_class)
-        bytecode (def.class #jvm.V1_6
-                            #jvm.Public jvm.noneC
+        bytecode (def.class {jvm.#V1_6}
+                            {jvm.#Public} jvm.noneC
                             bytecode_name
                             (list) $Value
                             (list)
-                            (|>> (def.field #jvm.Public ($_ jvm.++F jvm.finalF jvm.staticF)
+                            (|>> (def.field {jvm.#Public} ($_ jvm.++F jvm.finalF jvm.staticF)
                                             ..value_field ..$Value)
-                                 (def.method #jvm.Public ($_ jvm.++M jvm.staticM jvm.strictM)
+                                 (def.method {jvm.#Public} ($_ jvm.++M jvm.staticM jvm.strictM)
                                              "<clinit>"
                                              (type.method [(list) (list) type.void (list)])
                                              (|>> valueI
-- 
cgit v1.2.3