From 72b4eecdc514387ab3b1c105cfd49436c9eb1e8d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 25 Oct 2020 05:10:08 -0400
Subject: Some improvements to the Lux syntax parser.

---
 lux-jvm/source/luxc/lang/translation/jvm/function.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lux-jvm/source/luxc/lang/translation/jvm/function.lux')

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/function.lux b/lux-jvm/source/luxc/lang/translation/jvm/function.lux
index 2a792612c..97b32f8c2 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/function.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/function.lux
@@ -201,7 +201,7 @@
         @labels (list@map $.new-label (list.repeat num-partials []))
         over-extent (|> (.int function-arity) (i.- (.int apply-arity)))
         casesI (|> (list@compose @labels (list @default))
-                   (list.zip2 (enum.range n.enum 0 num-partials))
+                   (list.zip/2 (enum.range n.enum 0 num-partials))
                    (list@map (.function (_ [stage @label])
                                (let [load-partialsI (if (n.> 0 stage)
                                                       (|> (enum.range n.enum 0 (dec stage))
@@ -259,7 +259,7 @@
 
 (def: #export with-environment
   (-> (Environment Synthesis) Def)
-  (|>> list.enumerate
+  (|>> list.enumeration
        (list@map (.function (_ [env-idx env-source])
                    (def.field #$.Private $.finalF (reference.foreign-name env-idx) //.$Value)))
        def.fuse))
@@ -324,7 +324,7 @@
     [functionI (generate archive functionS)
      argsI (monad.map @ (generate archive) argsS)
      #let [applyI (|> argsI
-                      (list.split-all //runtime.num-apply-variants)
+                      (list.chunk //runtime.num-apply-variants)
                       (list@map (.function (_ chunkI+)
                                   (|>> (_.CHECKCAST //.$Function)
                                        (_.fuse chunkI+)
-- 
cgit v1.2.3