From 667142295f3ed545c183882f13e9ba1f5b3c3203 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 27 Aug 1992 06:30:57 +0000
Subject: [PATCH] Make SF not complain.

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

diff --git a/v7/src/edwin/tterm.scm b/v7/src/edwin/tterm.scm
index 2ba9edc05..0d2c494af 100644
--- a/v7/src/edwin/tterm.scm
+++ b/v7/src/edwin/tterm.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tterm.scm,v 1.17 1992/05/07 19:43:55 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tterm.scm,v 1.18 1992/08/27 06:30:57 jinx Exp $
 
-Copyright (c) 1990-92 Massachusetts Institute of Technology
+Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -483,6 +483,7 @@ MIT in each case. |#
   (clear-screen screen))
 
 (define (console-clear-rectangle! screen xl xu yl yu highlight)
+  highlight
   (let ((x-size (screen-x-size screen))
 	(y-size (screen-y-size screen)))
     (cond ((not (fix:= xu x-size))
-- 
2.25.1