From d023c27a370b94fa3b6f67e31bad8967801b496f Mon Sep 17 00:00:00 2001
From: Paul Steckler <steck@stecksoft.com>
Date: Tue, 22 Aug 2017 14:59:08 -0400
Subject: also in Fun1.smartmap, read, write from same array

---
 lib/cArray.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/cArray.ml b/lib/cArray.ml
index 59a256b11..73ab2d713 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
-- 
cgit v1.2.3