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/loop.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/new-luxc/source/luxc/synthesizer/loop.lux b/new-luxc/source/luxc/synthesizer/loop.lux
index 06b1d1bb0..9f4d09a49 100644
--- a/new-luxc/source/luxc/synthesizer/loop.lux
+++ b/new-luxc/source/luxc/synthesizer/loop.lux
@@ -32,7 +32,7 @@
     (#ls;Function arity environment bodyS)
     (list;any? &&function;self? environment)
     
-    (#ls;Call funcS argsS)
+    (#ls;Call argsS funcS)
     (or (contains-self-reference? funcS)
         (list;any? contains-self-reference? argsS))
     
@@ -81,11 +81,11 @@
                       _
                       pathS))))
 
-      (^multi (#ls;Call (#ls;Variable 0) argsS)
+      (^multi (#ls;Call argsS (#ls;Variable 0))
               (n.= arity (list;size argsS)))
       (#ls;Recur argsS)
 
-      (#ls;Call (#ls;Variable var) argsS)
+      (#ls;Call argsS (#ls;Variable var))
       exprS
 
       (#ls;Let register inputS bodyS)
@@ -136,8 +136,8 @@
                       (L/map resolve-captured scope)
                       (recur bodyS))
 
-        (#ls;Call funcS argsS)
-        (#ls;Call (recur funcS) (L/map recur argsS))
+        (#ls;Call argsS funcS)
+        (#ls;Call (L/map recur argsS) (recur funcS))
 
         (#ls;Recur argsS)
         (#ls;Recur (L/map recur argsS))
-- 
cgit v1.2.3