From 21678b3f280cd85961e3354faecc29aab4819de4 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 31 Dec 2009 11:41:57 -0500 Subject: Basis.serialize; separate file for mhash; run transactional finishers in reverse order; set needs_sig properly --- src/mono_shake.sml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/mono_shake.sml') diff --git a/src/mono_shake.sml b/src/mono_shake.sml index 048cc190..e53b6930 100644 --- a/src/mono_shake.sml +++ b/src/mono_shake.sml @@ -54,7 +54,7 @@ fun shake file = 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 -- cgit v1.2.3