Mercurial > urweb

diff src/search.sml @ 6:38bf996e1c2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Check for leftover kind unifs
author Adam Chlipala <adamc@hcoop.net>
date Sat, 26 Jan 2008 16:44:39 -0500
parents 64f09f7822c3
children e97c6d335869
line wrap: on
line diff
--- a/src/search.sml	Sat Jan 26 16:02:47 2008 -0500
+++ b/src/search.sml	Sat Jan 26 16:44:39 2008 -0500
@@ -62,7 +62,7 @@
 fun bindP (r, f) =
     case r of
         Continue ((x, pos), acc) =>
-        map (f (x, acc),
+        map (f x acc,
           fn (x', acc') =>
              ((x', pos), acc'))
       | Return x => Return x