From 23ad698f1ad87f9e9838c1e7df1809991c6a1d18 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 1 Jul 2020 19:09:53 -0400
Subject: WIP: Leiningen integration with the new JVM compiler.

---
 stdlib/source/test/lux/extension.lux  | 5 ++++-
 stdlib/source/test/lux/target/jvm.lux | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/test')

diff --git a/stdlib/source/test/lux/extension.lux b/stdlib/source/test/lux/extension.lux
index da6f89187..9aa8ae987 100644
--- a/stdlib/source/test/lux/extension.lux
+++ b/stdlib/source/test/lux/extension.lux
@@ -50,7 +50,10 @@
                 (wrap (#synthesis.Extension self (list)))))
             ))
 
-(for {@.jvm
+(for {@.old
+      (as-is)
+
+      @.jvm
       (as-is (generation: (..my-generation self phase archive {parameters (<>.some <s>.any)})
                (do phase.monad
                  []
diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux
index f572b7e1e..18366de69 100644
--- a/stdlib/source/test/lux/target/jvm.lux
+++ b/stdlib/source/test/lux/target/jvm.lux
@@ -963,7 +963,7 @@
                    (array (/.newarray /instruction.t-int) $Integer::random $Integer::literal [/.iastore /.iaload $Integer::wrap]
                           (function (_ expected)
                             (for {@.old
-                                  (|>> (:coerce java/lang/Integer) ("jvm ieq" (host.int-to-long expected)))
+                                  (|>> (:coerce java/lang/Integer) ("jvm ieq" (:coerce java/lang/Integer expected)))
                                   
                                   @.jvm
                                   (|>> (:coerce java/lang/Integer) "jvm object cast" ("jvm int =" ("jvm object cast" (:coerce java/lang/Integer expected))))}))))
-- 
cgit v1.2.3