From 0aa271b955c6ce97d5693a07d3751058e7aa0ce0 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 3 Nov 1993 03:46:30 +0000
Subject: [PATCH] fixed delete-min!

---
 v7/src/runtime/wttree.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/v7/src/runtime/wttree.scm b/v7/src/runtime/wttree.scm
index 989c07191..235dbfe31 100644
--- 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))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
-- 
2.25.1