summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorBrian Campbell2017-11-07 10:49:50 +0000
committerBrian Campbell2017-11-07 10:49:50 +0000
commitff9610e460b60fc35a529dfbc1d6b8d9c0072104 (patch)
tree07f18fdfd3ce4137afb81116154a528c92c49192 /src
parent31d548faa0388fc517f2d2ccaee894a71d29698a (diff)
Fix vector_subrange typo
Diffstat (limited to 'src')
-rw-r--r--src/type_check.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/type_check.ml b/src/type_check.ml
index aede9c67..d021ed0c 100644
--- a/src/type_check.ml
+++ b/src/type_check.ml
@@ -2955,7 +2955,7 @@ and propagate_exp_effect_aux = function
| E_vector_subrange (v, i, j) ->
let p_v = propagate_exp_effect v in
let p_i = propagate_exp_effect i in
- let p_j = propagate_exp_effect i in
+ let p_j = propagate_exp_effect j in
E_vector_subrange (p_v, p_i, p_j), collect_effects [p_v; p_i; p_j]
| E_vector_update (v, i, x) ->
let p_v = propagate_exp_effect v in