From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Fri, 13 Aug 1993 01:56:57 +0000 (+0000)
Subject: Fix fencepost error in highlighting of subexpressions.
X-Git-Tag: 20090517-FFI~8070
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ea5b814ce65b8b70b02e0b65c88df8cb6b8aa6c6;p=mit-scheme.git

Fix fencepost error in highlighting of subexpressions.
---

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 4c8703215..8814d9463 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.8 1993/08/13 01:22:17 jbank Exp $
+;;;	$Id: debug.scm,v 1.9 1993/08/13 01:56:57 jawilson Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -116,10 +116,14 @@
  	    (highlight-region (horizontal-space-end start)
  			      (horizontal-space-start lend))
  	    (loop (mark1+ lend)))
- 	  (highlight-region (horizontal-space-end start)
- 			    (horizontal-space-start end))))))
+	  (let ((start (horizontal-space-end start))
+		(end (horizontal-space-start end)))
+	    (if (mark< start end)
+		(highlight-region start end)))))))
  
 (define (highlight-region start end)
+  (if (not (mark<= start end))
+      (error "Marks incorrectly related:" start end))
   (group-highlight (mark-group start) (mark-index start) (mark-index end)))
  
 (define (group-highlight group start end)