aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/synthesizer.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/synthesizer.lux')
-rw-r--r--new-luxc/source/luxc/synthesizer.lux12
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))