From 08411ea81cb32259f792b3ed0febd23ea6fea90e Mon Sep 17 00:00:00 2001
From: Joe Bank <edu/mit/csail/zurich/jbank>
Date: Sat, 14 Aug 1993 03:31:21 +0000
Subject: [PATCH] Made minor change to select-bline

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

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 8814d9463..38922a22e 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.9 1993/08/13 01:56:57 jawilson Exp $
+;;;	$Id: debug.scm,v 1.10 1993/08/14 03:31:21 jbank Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -333,8 +333,7 @@
   (let ((bline
 	 (if (bline/continuation? bline)
 	     (replace-continuation-bline bline)
-	     bline))
-	(ind (if (reduction? (bline/object bline)) 6 3)))
+	     bline)))
     (let ((browser (bline/browser bline)))
       (unselect-bline browser)
       (let ((mark (bline/start-mark bline)))
-- 
2.25.1