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/primitive.jvm.lux | 30 +++++++++++-----------
 1 file changed, 15 insertions(+), 15 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/primitive.jvm.lux
index acd3b95e3..8fed1de18 100644
--- a/new-luxc/source/luxc/lang/translation/primitive.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/primitive.jvm.lux
@@ -1,35 +1,35 @@
-(;module:
+(.module:
   lux
   (lux (control monad)
        (data text/format)
        [macro "macro/" Monad<Meta>])
   (luxc ["&" lang]
-        (lang [";L" host]
+        (lang [".L" host]
               (host ["$" jvm]
                     (jvm ["$i" inst]
                          ["$t" type]))
               ["la" analysis]
               ["ls" synthesis]
-              (translation [";T" common]))))
+              (translation [".T" common]))))
 
 (def: #export translate-unit
-  (Meta $;Inst)
-  (macro/wrap ($i;string hostL;unit)))
+  (Meta $.Inst)
+  (macro/wrap ($i.string hostL.unit)))
 
 (def: #export (translate-bool value)
-  (-> Bool (Meta $;Inst))
-  (macro/wrap ($i;GETSTATIC "java.lang.Boolean"
+  (-> Bool (Meta $.Inst))
+  (macro/wrap ($i.GETSTATIC "java.lang.Boolean"
                             (if value "TRUE" "FALSE")
-                            ($t;class "java.lang.Boolean" (list)))))
+                            ($t.class "java.lang.Boolean" (list)))))
 
 (do-template [<name> <type> <load> <wrap>]
   [(def: #export (<name> value)
-     (-> <type> (Meta $;Inst))
-     (macro/wrap (|>. (<load> value) <wrap>)))]
+     (-> <type> (Meta $.Inst))
+     (macro/wrap (|>> (<load> value) <wrap>)))]
 
-  [translate-nat  Nat  (|>. (:! Int) $i;long) ($i;wrap #$;Long)]
-  [translate-int  Int  $i;long ($i;wrap #$;Long)]
-  [translate-deg  Deg  (|>. (:! Int) $i;long) ($i;wrap #$;Long)]
-  [translate-frac Frac $i;double ($i;wrap #$;Double)]
-  [translate-text Text $i;string id]
+  [translate-nat  Nat  (|>> (:! Int) $i.long) ($i.wrap #$.Long)]
+  [translate-int  Int  $i.long ($i.wrap #$.Long)]
+  [translate-deg  Deg  (|>> (:! Int) $i.long) ($i.wrap #$.Long)]
+  [translate-frac Frac $i.double ($i.wrap #$.Double)]
+  [translate-text Text $i.string id]
   )
-- 
cgit v1.2.3