Merge pull request #5 from inhabitedtype/unsafe-array-operations

unsafe-array-operations: Use unsafe array operations in deque
inhabitedtype · Jun 23, 2017 · 597835d · 597835d
2 parents 9847742 + 4d9a43b
commit 597835d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/faraday.ml b/lib/faraday.ml
@@ -104,8 +104,8 @@ end = struct
     if is_empty t then
       raise Not_found
     else
-      let result = t.elements.(t.front) in
-      t.elements.(t.front) <- sentinel;
+      let result = Array.unsafe_get t.elements t.front in
+      Array.unsafe_set t.elements t.front sentinel;
       t.front <- t.front + 1;
       result