Mercurial > urweb

diff src/mono_shake.sml @ 1104:72670131dace

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basis.serialize; separate file for mhash; run transactional finishers in reverse order; set needs_sig properly
author Adam Chlipala <adamc@hcoop.net>
date Thu, 31 Dec 2009 11:41:57 -0500
parents 0657e5adc938
children c316ca3c9ec6
line wrap: on
line diff
--- a/src/mono_shake.sml	Wed Dec 30 09:52:18 2009 -0500
+++ b/src/mono_shake.sml	Thu Dec 31 11:41:57 2009 -0500
@@ -54,7 +54,7 @@
 
         val (page_cs, page_es) =
             List.foldl
-                (fn ((DExport (_, _, n, _, _), _), (page_cs, page_es)) => (page_cs, IS.add (page_es, n))
+                (fn ((DExport (_, _, n, _, _, _), _), (page_cs, page_es)) => (page_cs, IS.add (page_es, n))
                   | ((DDatabase {expunge = n1, initialize = n2, ...}, _), (page_cs, page_es)) =>
                     (page_cs, IS.addList (page_es, [n1, n2]))
                   | ((DTask (e1, e2), _), st) => usedVars (usedVars st e2) e1