From 4433c9bcd6c6cac44c018aad2e21a5b4d7cc4896 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 29 Nov 2017 22:49:56 -0400
Subject: - Adapted main codebase to the latest syntatic changes.

---
 .../source/luxc/lang/translation/reference.jvm.lux | 40 +++++++++++-----------
 1 file changed, 20 insertions(+), 20 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/reference.jvm.lux b/new-luxc/source/luxc/lang/translation/reference.jvm.lux
index bfc838041..bfb5856d4 100644
--- a/new-luxc/source/luxc/lang/translation/reference.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/reference.jvm.lux
@@ -1,17 +1,17 @@
-(;module:
+(.module:
   lux
   (lux (control [monad #+ do])
        (data [text "text/" Hash<Text>]
              text/format)
        [macro "macro/" Monad<Meta>])
   (luxc ["&" lang]
-        (lang [";L" host]
+        (lang [".L" host]
               (host ["$" jvm]
                     (jvm ["$t" type]
                          ["$i" inst]))
               ["ls" synthesis]
-              [";L" variable #+ Variable]
-              (translation [";T" common]))))
+              [".L" variable #+ Variable]
+              (translation [".T" common]))))
 
 (do-template [<name> <prefix>]
   [(def: #export (<name> idx)
@@ -23,27 +23,27 @@
   )
 
 (def: #export (translate-captured variable)
-  (-> Variable (Meta $;Inst))
-  (do macro;Monad<Meta>
-    [this-module macro;current-module-name
-     function-class hostL;context
-     #let [function-class (format (text;replace-all "/" "." this-module) "." function-class)]]
-    (wrap (|>. ($i;ALOAD +0)
-               ($i;GETFIELD function-class
-                            (|> variable i.inc (i.* -1) int-to-nat captured)
-                            commonT;$Object)))))
+  (-> Variable (Meta $.Inst))
+  (do macro.Monad<Meta>
+    [this-module macro.current-module-name
+     function-class hostL.context
+     #let [function-class (format (text.replace-all "/" "." this-module) "." function-class)]]
+    (wrap (|>> ($i.ALOAD +0)
+               ($i.GETFIELD function-class
+                            (|> variable i/inc (i/* -1) int-to-nat captured)
+                            commonT.$Object)))))
 
 (def: #export (translate-local variable)
-  (-> Variable (Meta $;Inst))
-  (macro/wrap ($i;ALOAD (int-to-nat variable))))
+  (-> Variable (Meta $.Inst))
+  (macro/wrap ($i.ALOAD (int-to-nat variable))))
 
 (def: #export (translate-variable variable)
-  (-> Variable (Meta $;Inst))
-  (if (variableL;captured? variable)
+  (-> Variable (Meta $.Inst))
+  (if (variableL.captured? variable)
     (translate-captured variable)
     (translate-local variable)))
 
 (def: #export (translate-definition [def-module def-name])
-  (-> Ident (Meta $;Inst))
-  (let [bytecode-name (format def-module "/" (&;normalize-name def-name) (%n (text/hash def-name)))]
-    (macro/wrap ($i;GETSTATIC bytecode-name commonT;value-field commonT;$Object))))
+  (-> Ident (Meta $.Inst))
+  (let [bytecode-name (format def-module "/" (&.normalize-name def-name) (%n (text/hash def-name)))]
+    (macro/wrap ($i.GETSTATIC bytecode-name commonT.value-field commonT.$Object))))
-- 
cgit v1.2.3