From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Oct 1993 21:51:31 +0000 (+0000)
Subject: Eliminate unused variable.
X-Git-Tag: 20090517-FFI~7687
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f7c8cc88552b0e54006c7ad163b91598e0ccd91c;p=mit-scheme.git

Eliminate unused variable.
---

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 21b654d7a..d396dafda 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.25 1993/10/26 21:22:53 cph Exp $
+;;;	$Id: debug.scm,v 1.26 1993/10/26 21:51:31 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -1009,11 +1009,11 @@ The buffer below describes the current subproblem or reduction.
 	     (prompt-for-confirmation? "Start debugger in new screen")
 	     new-screen?))
        (let ((screen
-	      (apply make-screen buffer (make-debug-screen-args buffer))))
+	      (apply make-screen buffer (make-debug-screen-args))))
 	 (set-browser/new-screen! (buffer-browser buffer) screen)
 	 screen)))
 
-(define (make-debug-screen-args buffer)
+(define (make-debug-screen-args)
   (case (display-type/name (current-display-type))
     ((X)
      (list (or new-screen-geometry