Eliminate unused variable.

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 21b654d7ad1a02d8277dc21bc4784303e7732782..d396dafda5b27ce1637dabaa5378781c6a9f1d5d 100644 (file)
--- 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