diff src/list_util.sig @ 6:38bf996e1c2e

Check for leftover kind unifs
author Adam Chlipala <adamc@hcoop.net>
date Sat, 26 Jan 2008 16:44:39 -0500
parents 258261a53842
children bfa2e9ae4df8
line wrap: on
line diff
--- a/src/list_util.sig	Sat Jan 26 16:02:47 2008 -0500
+++ b/src/list_util.sig	Sat Jan 26 16:44:39 2008 -0500
@@ -30,4 +30,7 @@
     val mapfoldl : ('data1 * 'state -> 'state * 'data2) -> 'state -> 'data1 list
                    -> 'state * 'data2 list
 
+    val mapfold : ('data, 'state, 'abort) Search.mapfolder
+                  -> ('data list, 'state, 'abort) Search.mapfolder
+
 end