From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 3 Nov 1993 03:46:30 +0000 (+0000)
Subject: fixed delete-min!
X-Git-Tag: 20090517-FFI~7617
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0aa271b955c6ce97d5693a07d3751058e7aa0ce0;p=mit-scheme.git

fixed delete-min!
---

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))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;