# HG changeset patch
# User wenzelm
# Date 853521622 -3600
# Node ID a1a18530c4ac7897d18399e07bbef0438953d2b1
# Parent  b7dd670cfe3a3fef89921e4779cad6ca8b7526fe
added gen_overwrite;

diff -r b7dd670cfe3a -r a1a18530c4ac src/Pure/library.ML
--- a/src/Pure/library.ML	Fri Jan 17 18:19:57 1997 +0100
+++ b/src/Pure/library.ML	Fri Jan 17 18:20:22 1997 +0100
@@ -611,6 +611,12 @@
         | over [] = [p]
   in over al end;
 
+fun gen_overwrite eq (al, p as (key, _)) =
+  let fun over ((q as (keyi, _)) :: pairs) =
+            if eq (keyi, key) then p :: pairs else q :: (over pairs)
+        | over [] = [p]
+  in over al end;
+
 
 
 (** generic tables **)