From 125bc6da2362179e7f3985fa330aad471055dc9d Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 9 Feb 2014 01:46:29 +0100
Subject: Small optimizations in Closure:

1. Only apply last Zupdates
2. Better smartmap with state.
---
 lib/cArray.mli | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/cArray.mli')

diff --git a/lib/cArray.mli b/lib/cArray.mli
index fc26e19722..83036e27ce 100644
--- a/lib/cArray.mli
+++ b/lib/cArray.mli
@@ -105,6 +105,9 @@ sig
   (** [smartmap f a] behaves as [map f a] but returns [a] instead of a copy when
       [f x == x] for all [x] in [a]. *)
 
+  val smartfoldmap : ('r -> 'a -> 'r * 'a) -> 'r -> 'a array -> 'r * 'a array
+  (** Same as [smartmap] but threads an additional state left-to-right. *)
+
   val map2 : ('a -> 'b -> 'c) -> 'a array -> 'b array -> 'c array
   val map2_i : (int -> 'a -> 'b -> 'c) -> 'a array -> 'b array -> 'c array
   val map3 :
-- 
cgit v1.2.3