From ca238f9c89d3156842b0a3d5fe24a5d69b2eedb0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 6 Apr 2018 08:32:41 -0400
Subject: - Adapted new-luxc's code to latest stdlib changes.

---
 new-luxc/source/luxc/lang/synthesis/case.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'new-luxc/source/luxc/lang/synthesis/case.lux')

diff --git a/new-luxc/source/luxc/lang/synthesis/case.lux b/new-luxc/source/luxc/lang/synthesis/case.lux
index 3e57de337..968c35561 100644
--- a/new-luxc/source/luxc/lang/synthesis/case.lux
+++ b/new-luxc/source/luxc/lang/synthesis/case.lux
@@ -28,7 +28,7 @@
       (#.Cons _)
       (let [last-idx (n/dec (list.size membersP))
             [_ output] (list/fold (: (-> la.Pattern [Nat [Nat (List ls.Path)]] [Nat [Nat (List ls.Path)]])
-                                     (function [current-pattern [current-idx num-locals' next]]
+                                     (function (_ current-pattern [current-idx num-locals' next])
                                        (let [[num-locals'' current-path] (path' arity num-locals' current-pattern)]
                                          [(n/dec current-idx)
                                           num-locals''
@@ -64,7 +64,7 @@
   (-> (List ls.Path) (List ls.Path))
   (case paths
     (#.Cons path paths')
-    (if (is popPS path)
+    (if (is? popPS path)
       (clean-unnecessary-pops paths')
       paths)
 
@@ -76,7 +76,7 @@
   (let [[num-locals' pieces] (path' arity num-locals pattern)]
     (|> pieces
         clean-unnecessary-pops
-        (list/fold (function [pre post]
+        (list/fold (function (_ pre post)
                      (` ("lux case seq" (~ pre) (~ post))))
                    (` ("lux case exec" (~ (synthesize num-locals' bodyA))))))))
 
-- 
cgit v1.2.3