Commit 8c532da8 authored by POTTIER Francois's avatar POTTIER Francois

One more [Array.unsafe_get] which I forgot a couple commits ago.

parent 8b0605cc
......@@ -44,7 +44,7 @@ let set a i x =
let update a i f =
ensure a i;
let x = a.table.(i) in
let x = Array.unsafe_get a.table (i) in
Array.unsafe_set a.table (i) (f x);
if a.extent <= i then
a.extent <- i + 1
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment