diff options
author | Eduardo Julian | 2017-09-19 19:24:09 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-09-19 19:24:09 -0400 |
commit | 3744a2212a89d4ab0f176350d2d2f90696235a40 (patch) | |
tree | 28e9da49deddcb8253fca2ae94f479ba64cb5536 /new-luxc/source/luxc/synthesizer.lux | |
parent | e6afba3e17f03ed0652d18a26d0f3c053a49e7a5 (diff) |
- Function generation.
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)) |