diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/poly/lux/abstract/functor.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/poly/lux/abstract/functor.lux b/stdlib/source/poly/lux/abstract/functor.lux index c22faabe2..80f8d414a 100644 --- a/stdlib/source/poly/lux/abstract/functor.lux +++ b/stdlib/source/poly/lux/abstract/functor.lux @@ -66,9 +66,9 @@ ... Tuples (do p.monad [pairsCC (is (<type>.Parser (List [Code Code])) - (<type>.tuple (loop [idx 0 - pairsCC (is (List [Code Code]) - (list))] + (<type>.tuple (loop (again [idx 0 + pairsCC (is (List [Code Code]) + (list))]) (p.either (let [slotC (|> idx %.nat (format "____________slot") code.local)] (do ! [_ (in []) |