diff options
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 |