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/compiler/default/phase/analysis.lux | |
| parent | a8979a7b1ed69740eb6c7c00c934e2fadd129322 (diff) | |
Replace the error-prone "n/range" calls with "indices".
Diffstat (limited to 'stdlib/source/lux/compiler/default/phase/analysis.lux')
| -rw-r--r-- | stdlib/source/lux/compiler/default/phase/analysis.lux | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/stdlib/source/lux/compiler/default/phase/analysis.lux b/stdlib/source/lux/compiler/default/phase/analysis.lux index ccf46b873..b0776141a 100644 --- a/stdlib/source/lux/compiler/default/phase/analysis.lux +++ b/stdlib/source/lux/compiler/default/phase/analysis.lux @@ -116,11 +116,9 @@ (let [left (function.constant (|>> #.Left #Sum <structure>)) right (|>> #.Right #Sum <structure>)] (if (last? size tag) - (if (n/= 1 tag) - (right value) - (list/fold left - (right value) - (list.n/range 0 (n/- 2 tag)))) + (list/fold left + (right value) + (list.indices (dec tag))) (list/fold left (case value (<structure> (#Sum _)) @@ -128,7 +126,7 @@ _ value) - (list.n/range 0 tag)))))] + (list.indices (inc tag))))))] [sum-analysis Analysis #Structure no-op] [sum-pattern Pattern #Complex id] |