aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/synthesizer/loop.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/synthesizer/loop.lux')
-rw-r--r--new-luxc/source/luxc/synthesizer/loop.lux10
1 files changed, 5 insertions, 5 deletions
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))