diff options
| author | Eduardo Julian | 2017-06-14 17:56:24 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-06-14 17:56:24 -0400 |
| commit | c7e53036704b1a89b740c023c7b4bcc74b7e956a (patch) | |
| tree | fa75c05b4233e654c17edd4de2d2b0b6fb3cece9 /new-luxc/test/test/luxc/synthesizer/loop.lux | |
| parent | 9cd2927a4f6175784e081d6b512d3e900c8069e7 (diff) | |
- Heavy refactoring.
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/test/test/luxc/synthesizer/loop.lux | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/new-luxc/test/test/luxc/synthesizer/loop.lux b/new-luxc/test/test/luxc/synthesizer/loop.lux index b89e09659..07f2b8a13 100644 --- a/new-luxc/test/test/luxc/synthesizer/loop.lux +++ b/new-luxc/test/test/luxc/synthesizer/loop.lux @@ -128,7 +128,7 @@ [plus-or-minus? r;bool how-much (|> r;nat (:: @ map (|>. (n.% arity) (n.max +1)))) #let [shift (if plus-or-minus? n.+ n.-)]] - (wrap (make-apply selfA (list;repeat (shift how-much arity) argA))))) + (wrap (make-apply selfA (list;repeat (shift how-much arity) #la;Unit))))) bodyS (gen-body arity outputS)] (wrap [(and recur? (not self-ref?)) arity |