From: Joe Bank <edu/mit/csail/zurich/jbank>
Date: Sat, 14 Aug 1993 03:31:21 +0000 (+0000)
Subject: Made minor change to select-bline
X-Git-Tag: 20090517-FFI~8065
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=08411ea81cb32259f792b3ed0febd23ea6fea90e;p=mit-scheme.git

Made minor change to select-bline
---

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