diff options
Diffstat (limited to '')
-rw-r--r-- | new-luxc/test/test/luxc/synthesizer/loop.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/new-luxc/test/test/luxc/synthesizer/loop.lux b/new-luxc/test/test/luxc/synthesizer/loop.lux index abc06dbb8..386f14cfa 100644 --- a/new-luxc/test/test/luxc/synthesizer/loop.lux +++ b/new-luxc/test/test/luxc/synthesizer/loop.lux @@ -103,13 +103,13 @@ [arity (|> r;nat (:: @ map (|>. (n.% +10) (n.max +1)))) recur? r;bool outputS (if recur? - (wrap (make-apply (#la;Relative (#;Local +0)) + (wrap (make-apply (#la;Variable (#;Local +0)) (list;repeat arity #la;Unit))) (do @ [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 (#la;Relative (#;Local +0)) + (wrap (make-apply (#la;Variable (#;Local +0)) (list;repeat (shift how-much arity) #la;Unit))))) bodyS (gen-body arity outputS)] (wrap [recur? arity (make-function arity bodyS)]))) @@ -120,7 +120,7 @@ [arity (|> r;nat (:: @ map (|>. (n.% +10) (n.max +1)))) recur? r;bool self-ref? r;bool - #let [selfA (#la;Relative (#;Local +0)) + #let [selfA (#la;Variable (#;Local +0)) argA (if self-ref? selfA #la;Unit)] outputS (if recur? (wrap (make-apply selfA (list;repeat arity argA))) |