fixed delete-min!

diff --git a/v7/src/runtime/wttree.scm b/v7/src/runtime/wttree.scm
index 989c07191c1441ed9c40acd969d2ab889898aaf8..235dbfe318dab75c8c2323e91511e780d9024888 100644 (file)
--- a/v7/src/runtime/wttree.scm
+++ b/v7/src/runtime/wttree.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: wttree.scm,v 1.1 1993/11/02 20:10:55 adams Exp $
+$Id: wttree.scm,v 1.2 1993/11/03 03:46:30 adams Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -595,6 +595,10 @@ MIT in each case. |#
 (define (wt-tree/delete-min tree)
   (guarantee-tree tree 'wt-tree/delete-min)
   (%make-wt-tree (tree/type tree) (node/delmin (tree/root tree))))
+
+(define (wt-tree/delete-min! tree)
+  (guarantee-tree tree 'wt-tree/delete-min!)
+  (set-tree/root! tree (node/delmin (tree/root tree))))
 \f
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;