Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1103:2f42c61b8d0a 1104:72670131dace
52 ENamed n => (cs, IS.add (es, n)) 52 ENamed n => (cs, IS.add (es, n))
53 | _ => st} 53 | _ => st}
54 54
55 val (page_cs, page_es) = 55 val (page_cs, page_es) =
56 List.foldl 56 List.foldl
57 (fn ((DExport (_, _, n, _, _), _), (page_cs, page_es)) => (page_cs, IS.add (page_es, n)) 57 (fn ((DExport (_, _, n, _, _, _), _), (page_cs, page_es)) => (page_cs, IS.add (page_es, n))
58 | ((DDatabase {expunge = n1, initialize = n2, ...}, _), (page_cs, page_es)) => 58 | ((DDatabase {expunge = n1, initialize = n2, ...}, _), (page_cs, page_es)) =>
59 (page_cs, IS.addList (page_es, [n1, n2])) 59 (page_cs, IS.addList (page_es, [n1, n2]))
60 | ((DTask (e1, e2), _), st) => usedVars (usedVars st e2) e1 60 | ((DTask (e1, e2), _), st) => usedVars (usedVars st e2) e1
61 | (_, st) => st) (IS.empty, IS.empty) file 61 | (_, st) => st) (IS.empty, IS.empty) file
62 62