From 0b48781249e7062928ff78ae3469a508a3e31eaa Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 10 Jun 2008 15:56:33 -0400
Subject: Closure conversion

---
 src/list_util.sml | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'src/list_util.sml')

diff --git a/src/list_util.sml b/src/list_util.sml
index 626d0ec0..aed2cdf0 100644
--- a/src/list_util.sml
+++ b/src/list_util.sml
@@ -60,6 +60,21 @@ fun mapfold f =
         mf
     end
 
+fun foldlMap f s =
+    let
+        fun fm (ls', s) ls =
+            case ls of
+                nil => (rev ls', s)
+              | h :: t =>
+                let
+                    val (h', s') = f (h, s)
+                in
+                    fm (h' :: ls', s') t
+                end
+    in
+        fm ([], s)
+    end
+
 fun search f =
     let
         fun s ls =
-- 
cgit v1.2.3