[r2005-10-07 19:09:27 by afrisch] Bug in record concat

Original author: afrisch
Date: 2005-10-07 19:09:27+00:00

misc/imap.ml

@@ -125,6 +125,7 @@ let merge (t1 : 'a t) (t2 : 'a t) =
 	 set t (succ i) (get t1 (pred i1));
 	 let i = i + 2 in
 	 if (i1 = n1) then (
+	   let i2 = i2 - 2 in
 	   let l = n2 - i2 in
 	   Array.blit t2 i2 t i l;
 	   i + l
@@ -137,6 +138,7 @@ let merge (t1 : 'a t) (t2 : 'a t) =
 	 set t (succ i) (get t2 (pred i2));
 	 let i = i + 2 in
 	 if (i2 = n2) then (
+	   let i1 = i1 - 2 in
 	   let l = n1 - i1 in
 	   Array.blit t1 i1 t i l;
 	   i + l