From bcd3d9ee8f6797f758a2abea98d5cb6a74cc7df0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 15 Jun 2018 00:11:33 -0400
Subject: - WIP: Adjustments to new-luxc based on recent changes to stdlib.

---
 new-luxc/source/luxc/lang/translation/php/function.jvm.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/php/function.jvm.lux b/new-luxc/source/luxc/lang/translation/php/function.jvm.lux
index 9a283439f..27a265566 100644
--- a/new-luxc/source/luxc/lang/translation/php/function.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/php/function.jvm.lux
@@ -25,8 +25,8 @@
 
 (def: (input-declaration! register)
   (-> Register Statement)
-  (_.set! (referenceT.variable (n/inc register))
-          (_.nth (|> register nat-to-int _.int)
+  (_.set! (referenceT.variable (inc register))
+          (_.nth (|> register .int _.int)
                  @curried)))
 
 (def: (with-closure function-name inits function-definition!)
@@ -61,10 +61,10 @@
      closureO+ (monad.map @ referenceT.translate-variable env)
      #let [@function (_.var function-name)
            self-init! (_.set! (referenceT.variable +0) @function)
-           args-inits! (|> (list.n/range +0 (n/dec arity))
+           args-inits! (|> (list.n/range +0 (dec arity))
                            (list/map input-declaration!)
                            (list/fold _.then! self-init!))
-           arityO (|> arity nat-to-int _.int)
+           arityO (|> arity .int _.int)
            @num_args (_.var "num_args")]]
     (with-closure function-name closureO+
       (function (_ captured)
-- 
cgit v1.2.3