1.1 --- a/src/Tools/code/code_funcgr.ML	Tue Jul 15 15:59:49 2008 +0200
     1.2 +++ b/src/Tools/code/code_funcgr.ML	Tue Jul 15 16:02:07 2008 +0200
     1.3 @@ -261,11 +261,9 @@
     1.4  (
     1.5    type T = T;
     1.6    val empty = Graph.empty;
     1.7 -  fun merge _ _ = Graph.empty;
     1.8 -  fun purge _ NONE _ = Graph.empty
     1.9 -    | purge _ (SOME cs) funcgr =
    1.10 -        Graph.del_nodes ((Graph.all_preds funcgr 
    1.11 -          o filter (can (Graph.get_node funcgr))) cs) funcgr;
    1.12 +  fun purge _ cs funcgr =
    1.13 +    Graph.del_nodes ((Graph.all_preds funcgr 
    1.14 +      o filter (can (Graph.get_node funcgr))) cs) funcgr;
    1.15  );
    1.16  
    1.17  fun make thy =