diff options
| author | Eduardo Julian | 2018-08-02 23:50:44 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-08-02 23:50:44 -0400 |
| commit | 5662ec063a1019518d5c1714d9c1ea42c7684737 (patch) | |
| tree | 2a7b3984eba60be388f53f2debdfdf3f4d5afe61 /stdlib/source/lux/macro/poly/functor.lux | |
| parent | a8979a7b1ed69740eb6c7c00c934e2fadd129322 (diff) | |
Replace the error-prone "n/range" calls with "indices".
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/macro/poly/functor.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/macro/poly/functor.lux b/stdlib/source/lux/macro/poly/functor.lux index 205e78566..d866db45c 100644 --- a/stdlib/source/lux/macro/poly/functor.lux +++ b/stdlib/source/lux/macro/poly/functor.lux @@ -74,8 +74,8 @@ outL (code.local-identifier "____________outL")] [inT+ outC] (poly.function (p.many poly.any) (Arg<?> outL)) - #let [inC+ (|> (list.size inT+) dec - (list.n/range 0) + #let [inC+ (|> (list.size inT+) + list.indices (list/map (|>> %n (format "____________inC") code.local-identifier)))]] (wrap (` (function ((~ g!) (~+ inC+)) (let [(~ outL) ((~ valueC) (~+ inC+))] |