From 253d5a4a3f7ef5d42c467733e394a28d18a4d9b3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 29 Aug 2015 19:39:10 -0400
Subject: - Added some compiler optimizations. - Removed the (unnecessary)
 lux/control/dict & lux/control/stack modules. - The "Meta" type is now a
 record instead of a variant.

---
 source/lux/host/jvm.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'source/lux/host')

diff --git a/source/lux/host/jvm.lux b/source/lux/host/jvm.lux
index 9795965bd..40021d8fa 100644
--- a/source/lux/host/jvm.lux
+++ b/source/lux/host/jvm.lux
@@ -96,7 +96,7 @@
                                                        (list)
 
                                                        (#;Some finally)
-                                                       (list (` (_jvm_finally (~ finally)))))))))))))
+                                                       (: (List AST) (list (` (_jvm_finally (~ finally))))))))))))))
 
 (defsyntax #export (definterface [name local-symbol^] [supers (tuple^ (*^ local-symbol^))] [members (*^ method-decl^)])
   (let [members' (map (: (-> (, (List Text) Text (List Text) Text) AST)
@@ -166,7 +166,7 @@
 
 (defsyntax #export (.? [field local-symbol^] obj)
   (case obj
-    (#;Meta [_ (#;SymbolS obj-name)])
+    [_ (#;SymbolS obj-name)]
     (do Lux/Monad
       [obj-type (find-var-type obj-name)]
       (case obj-type
@@ -184,7 +184,7 @@
 
 (defsyntax #export (.= [field local-symbol^] value obj)
   (case obj
-    (#;Meta [_ (#;SymbolS obj-name)])
+    [_ (#;SymbolS obj-name)]
     (do Lux/Monad
       [obj-type (find-var-type obj-name)]
       (case obj-type
@@ -203,7 +203,7 @@
 (defsyntax #export (.! [call method-call^] obj)
   (let [[m-name ?m-classes m-args] call]
     (case obj
-      (#;Meta [_ (#;SymbolS obj-name)])
+      [_ (#;SymbolS obj-name)]
       (do Lux/Monad
         [obj-type (find-var-type obj-name)]
         (case obj-type
-- 
cgit v1.2.3