diff options
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))))})))) |