src/Pure/General/graph.ML
changeset 16003 48ae07a95c70
parent 15927 db77bed00211
child 16445 bc90e58bb6ac
--- a/src/Pure/General/graph.ML	Wed May 18 11:30:59 2005 +0200
+++ b/src/Pure/General/graph.ML	Wed May 18 11:31:00 2005 +0200
@@ -27,7 +27,6 @@
   val strong_conn: 'a T -> key list list
   val find_paths: 'a T -> key * key -> key list list
   val new_node: key * 'a -> 'a T -> 'a T                              (*exception DUP*)
-  val update_node : key * 'a -> 'a T -> 'a T
   val del_nodes: key list -> 'a T -> 'a T                             (*exception UNDEF*)
   val is_edge: 'a T -> key * key -> bool
   val add_edge: key * key -> 'a T -> 'a T
@@ -64,7 +63,7 @@
 val empty_keys = Table.empty: keys;
 
 infix mem_keys;
-fun x mem_keys tab = isSome (Table.lookup (tab: keys, x));
+fun x mem_keys tab = is_some (Table.lookup (tab: keys, x));
 
 infix ins_keys;
 fun x ins_keys tab = Table.insert (K true) (x, ()) (tab: keys);
@@ -146,11 +145,6 @@
 fun new_node (x, info) (Graph tab) =
   Graph (Table.update_new ((x, (info, ([], []))), tab));
 
-fun update_node (x, info) (G as Graph tab) =
-    let val (_, (preds, succs)) = get_entry G x in
-      Graph (Table.update ((x, (info, (preds, succs))), tab))
-    end;
-
 fun del_nodes xs (Graph tab) =
   Graph (tab
     |> fold Table.delete xs