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 707878cc978885f0399745f928da23d7094b0785..d0e676127291eead567959338b6407f8731b5207 100644 (file)
--- 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)))