diff options
Diffstat (limited to 'stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/complex.lux')
-rw-r--r-- | stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/complex.lux | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/complex.lux b/stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/complex.lux index bf08c727a..66e5421b0 100644 --- a/stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/complex.lux +++ b/stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/complex.lux @@ -77,8 +77,7 @@ .let [extender (is extension.Extender (function (_ _) (undefined))) - phase (//.translate extender ..lux) - $unit [0 0]]]) + phase (//.translate extender ..lux)]]) (all _.and (_.coverage [/.variant] (`` (and (,, (with_template [<lefts> <right?> <synthesis> <expected> <=>] @@ -91,7 +90,7 @@ [_ (translation.set_buffer translation.empty_buffer) it (/.variant phase archive.empty [<lefts> <right?> (<synthesis> location.dummy <expected>)])] - (in (when (of host evaluate $unit [{.#None} it]) + (in (when (of host evaluate [{.#None} it]) {try.#Success actual} (when (as Variant/3 actual) {<lefts> <right?> actual} @@ -120,7 +119,7 @@ (list (synthesis.bit location.dummy expected_bit) (synthesis.i64 location.dummy expected_i64) (synthesis.text location.dummy expected_text)))] - (in (when (of host evaluate $unit [{.#None} it]) + (in (when (of host evaluate [{.#None} it]) {try.#Success actual} (let [[actual_bit actual_i64 actual_text] (as Tuple/3 actual)] (and (bit#= expected_bit actual_bit) |