diff options
| -rw-r--r-- | lib/cArray.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/cArray.ml b/lib/cArray.ml index 59a256b115..73ab2d713b 100644 --- a/lib/cArray.ml +++ b/lib/cArray.ml @@ -514,7 +514,7 @@ struct Array.unsafe_set ans !i v; incr i; while !i < len do - let v = Array.unsafe_get ar !i in + let v = Array.unsafe_get ans !i in let v' = f arg v in if v != v' then Array.unsafe_set ans !i v'; incr i |