From bcd3d9ee8f6797f758a2abea98d5cb6a74cc7df0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 15 Jun 2018 00:11:33 -0400
Subject: - WIP: Adjustments to new-luxc based on recent changes to stdlib.

---
 .../source/luxc/lang/translation/jvm/common.jvm.lux     | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux
index 1d8da2893..b678677ce 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux
@@ -11,10 +11,11 @@
        [macro]
        [host]
        (world [blob #+ Blob]
-              [file #+ File]))
+              [file #+ File])
+       ["//" lang]
+       (lang ["//." reference #+ Register]))
   (luxc [lang]
-        (lang [".L" variable #+ Register]
-              (host ["$" jvm]
+        (lang (host ["$" jvm]
                     (jvm ["$t" type]
                          ["$d" def]
                          ["$i" inst])))))
@@ -131,10 +132,10 @@
               (wrap def-value)
 
               (#e.Success #.None)
-              (lang.throw Invalid-Definition-Value (%ident def-ident))
+              (//.throw Invalid-Definition-Value (%ident def-ident))
               
               (#e.Error error)
-              (lang.throw Cannot-Load-Definition
-                          (format "Definition: " (%ident def-ident) "\n"
-                                  "Error:\n"
-                                  error))))))))
+              (//.throw Cannot-Load-Definition
+                        (format "Definition: " (%ident def-ident) "\n"
+                                "Error:\n"
+                                error))))))))
-- 
cgit v1.2.3