From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Fri, 13 Aug 1993 11:17:59 +0000 (+0000)
Subject: I can't believe i wrote this shitty code in the first place but i blew
X-Git-Tag: 20090517-FFI~8069
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9200da74655fbca99f4923d16543a7bc618ef1b5;p=mit-scheme.git

I can't believe i wrote this shitty code in the first place but i blew
it in delete-interval.
---

diff --git a/v7/src/edwin/txtprp.scm b/v7/src/edwin/txtprp.scm
index 707878cc9..d0e676127 100644
--- a/v7/src/edwin/txtprp.scm
+++ b/v7/src/edwin/txtprp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: txtprp.scm,v 1.3 1993/08/10 09:44:18 cph Exp $
+;;;	$Id: txtprp.scm,v 1.4 1993/08/13 11:17:59 jawilson Exp $
 ;;;
 ;;;	Copyright (c) 1993 Massachusetts Institute of Technology
 ;;;
@@ -710,8 +710,7 @@
 	  (else
 	   (if new (set-interval-parent! new false))
 	   (set-group-text-properties! group new)))
-    (if new
-	(balance (interval-parent new) group -1))))
+    (balance (interval-parent i) group -1)))
 
 (define (am-left-child? i)
   (let ((p (interval-parent i)))