From 3744a2212a89d4ab0f176350d2d2f90696235a40 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 19 Sep 2017 19:24:09 -0400
Subject: - Function generation.

---
 new-luxc/source/luxc/synthesizer.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'new-luxc/source/luxc/synthesizer.lux')

diff --git a/new-luxc/source/luxc/synthesizer.lux b/new-luxc/source/luxc/synthesizer.lux
index 9cfcc020e..7bee8fe58 100644
--- a/new-luxc/source/luxc/synthesizer.lux
+++ b/new-luxc/source/luxc/synthesizer.lux
@@ -54,9 +54,9 @@
         (#;Local register)
         (if (&&function;nested? outer-arity)
           (if (n.= +0 register)
-            (<| (#ls;Call (#ls;Variable 0))
-                (L/map (|>. &&function;to-local #ls;Variable))
-                (list;n.range +1 (n.dec outer-arity)))
+            (#ls;Call (|> (list;n.range +1 (n.dec outer-arity))
+                          (L/map (|>. &&function;to-local #ls;Variable)))
+                      (#ls;Variable 0))
             (#ls;Variable (&&function;adjust-var outer-arity (&&function;to-local register))))
           (#ls;Variable (&&function;to-local register)))
         
@@ -136,11 +136,11 @@
             (#ls;Loop register-offset argsS
                       (&&loop;adjust _env register-offset _bodyS)))
 
-          (#ls;Call funcS' argsS')
-          (#ls;Call funcS' (L/append argsS' argsS))
+          (#ls;Call argsS' funcS')
+          (#ls;Call (L/append argsS' argsS) funcS')
 
           _
-          (#ls;Call funcS argsS)))
+          (#ls;Call argsS funcS)))
 
       (#la;Procedure name args)
       (#ls;Procedure name (L/map (recur +0 resolver num-locals) args))
-- 
cgit v1.2.3