From 76b47564f89bac5eb6604da7bbb94aabb83d6d84 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 30 Jul 2018 22:27:36 -0400
Subject: Updating new-luxc to latest Lux changes [Part 2].

---
 stdlib/source/lux/compiler/default/phase/synthesis/case.lux       | 2 +-
 .../lux/compiler/default/phase/translation/scheme/case.jvm.lux    | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source')

diff --git a/stdlib/source/lux/compiler/default/phase/synthesis/case.lux b/stdlib/source/lux/compiler/default/phase/synthesis/case.lux
index eaa7621f6..3e59637a8 100644
--- a/stdlib/source/lux/compiler/default/phase/synthesis/case.lux
+++ b/stdlib/source/lux/compiler/default/phase/synthesis/case.lux
@@ -103,7 +103,7 @@
           rightP
           <default>))
       ([#//.Bit bit/=]
-       [#//.I64 (:coerce (Equivalence I64) i/=)]
+       [#//.I64 "lux i64 ="]
        [#//.F64 frac/=]
        [#//.Text text/=])
 
diff --git a/stdlib/source/lux/compiler/default/phase/translation/scheme/case.jvm.lux b/stdlib/source/lux/compiler/default/phase/translation/scheme/case.jvm.lux
index 5ab0c56dd..1d9415a99 100644
--- a/stdlib/source/lux/compiler/default/phase/translation/scheme/case.jvm.lux
+++ b/stdlib/source/lux/compiler/default/phase/translation/scheme/case.jvm.lux
@@ -121,10 +121,10 @@
       (^ (<tag> value))
       (operation/wrap (_.when (|> value <format> (<=> cursor-top) _.not/1)
                               fail-pm!)))
-    ([synthesis.path/bit  _.bool   _.eqv?/2]
-     [synthesis.path/i64  _.int    _.=/2]
-     [synthesis.path/f64  _.float  _.=/2]
-     [synthesis.path/text _.string _.eqv?/2])
+    ([synthesis.path/bit  _.bool          _.eqv?/2]
+     [synthesis.path/i64  (<| _.int .int) _.=/2]
+     [synthesis.path/f64  _.float         _.=/2]
+     [synthesis.path/text _.string        _.eqv?/2])
 
     (^template [<pm> <flag> <prep>]
       (^ (<pm> idx))
-- 
cgit v1.2.3