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 | |
parent | e6afba3e17f03ed0652d18a26d0f3c053a49e7a5 (diff) |
- Function generation.
Diffstat (limited to 'new-luxc/source/luxc/synthesizer')
-rw-r--r-- | new-luxc/source/luxc/synthesizer/loop.lux | 10 |
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)) |