From 9200da74655fbca99f4923d16543a7bc618ef1b5 Mon Sep 17 00:00:00 2001
From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Fri, 13 Aug 1993 11:17:59 +0000
Subject: [PATCH] I can't believe i wrote this shitty code in the first place
 but i blew it in delete-interval.

---
 v7/src/edwin/txtprp.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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