- Function generation.

1 files changed, 6 insertions, 6 deletions

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))