From 6943c3cad4350e49eb21441560614341dc933bc1 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 13 Mar 1992 12:01:04 +0000 Subject: [PATCH] Eliminate unused bound variable in SCREEN-UPDATE. --- v7/src/edwin/screen.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/screen.scm b/v7/src/edwin/screen.scm index 1cafa2b7f..b34c7264e 100644 --- a/v7/src/edwin/screen.scm +++ b/v7/src/edwin/screen.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/screen.scm,v 1.97 1992/03/13 10:47:39 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/screen.scm,v 1.98 1992/03/13 12:01:04 cph Exp $ ;;; ;;; Copyright (c) 1989-92 Massachusetts Institute of Technology ;;; @@ -651,8 +651,7 @@ ;; FORCE? true means do not stop for pending input. (if (screen-debug-trace screen) ((screen-debug-trace screen) 'screen screen 'update force?)) - (let ((current-matrix (screen-current-matrix screen)) - (new-matrix (screen-new-matrix screen)) + (let ((new-matrix (screen-new-matrix screen)) (y-size (screen-y-size screen)) (preemption-modulus (screen-preemption-modulus screen)) (discretionary-flush (screen-operation/discretionary-flush screen)) -- 2.25.1