From 453ab9f67873bb022acadf4c0f5c1e635c7d5794 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 11 Aug 2018 23:27:32 -0400
Subject: - Fixed common translation tests for JVM. - Fixed a bug in "lux text
 <". - Small optimizations to old LuxC.

---
 new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
index 4f3193bbf..e11187787 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
@@ -107,9 +107,9 @@
                  (_.GOTO @end))))
     
     
-    (^template [<pattern> <method> <mod>]
+    (^template [<pattern> <method>]
       (^ (<pattern> idx))
-      (operation/wrap (.case (<mod> idx)
+      (operation/wrap (.case idx
                         0
                         (|>> peekI
                              (_.CHECKCAST ($t.descriptor runtime.$Tuple))
@@ -128,8 +128,8 @@
                                                         (list))
                                              #0)
                              pushI))))
-    ([synthesis.member/left  "pm_left"  .id]
-     [synthesis.member/right "pm_right" .inc])
+    ([synthesis.member/left  "pm_left"]
+     [synthesis.member/right "pm_right"])
 
     (^template [<pattern> <flag> <mod>]
       (^ (<pattern> idx))
@@ -222,9 +222,8 @@
     [@end _.make-label
      valueI (translate valueS)
      pathI (..path translate path @end)]
-    (wrap (|>> valueI
-               _.NULL
-               _.SWAP
+    (wrap (|>> _.NULL
+               valueI
                pushI
                pathI
                (_.label @end)))))
-- 
cgit v1.2.3