diff options
author | Eduardo Julian | 2020-07-01 19:09:53 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-07-01 19:09:53 -0400 |
commit | 23ad698f1ad87f9e9838c1e7df1809991c6a1d18 (patch) | |
tree | 752c4cb6fdb709c88e7c82fffd838ac49f836aa4 /stdlib/source/test | |
parent | 5d2512af61ac17bca25a4790ea01c24f7d2415da (diff) |
WIP: Leiningen integration with the new JVM compiler.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/extension.lux | 5 | ||||
-rw-r--r-- | stdlib/source/test/lux/target/jvm.lux | 2 |
2 files changed, 5 insertions, 2 deletions
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))))})))) |