Mercurial > urweb

diff src/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 a4979e31e4bf
children 7a31e0cf25e9
line wrap: on
line diff
--- a/src/shake.sml	Wed Dec 30 09:52:18 2009 -0500
+++ b/src/shake.sml	Thu Dec 31 11:41:57 2009 -0500
@@ -67,7 +67,7 @@
 
         val (usedE, usedC) =
             List.foldl
-                (fn ((DExport (_, n), _), (usedE, usedC)) => (IS.add (usedE, n), usedC)
+                (fn ((DExport (_, n, _), _), (usedE, usedC)) => (IS.add (usedE, n), usedC)
                   | ((DTable (_, _, c, _, pe, pc, ce, cc), _), (usedE, usedC)) =>
                     let
                         val usedC = usedVarsC usedC c