diff options
Diffstat (limited to 'new-luxc/source/luxc/synthesizer.lux')
| -rw-r--r-- | new-luxc/source/luxc/synthesizer.lux | 12 |
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)) |