Get rid of unreferenced variables.

diff --git a/v7/src/edwin/artdebug.scm b/v7/src/edwin/artdebug.scm
index 76f5ff5e1f9fc5f394edfc896ecb6fa76c9227b6..6dde63c6e059de4ece4edf34fffdb55c69b7b6fc 100644 (file)
--- a/v7/src/edwin/artdebug.scm
+++ b/v7/src/edwin/artdebug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.10 1991/09/14 20:29:57 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.11 1991/09/17 14:51:44 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -341,8 +341,7 @@ or #F meaning no limit."
 (define (print-restarts condition buffer)
   (let ((restarts (condition/restarts condition)))
     (if (not (null? restarts))
-       (let ((n-restarts (length restarts))
-             (write-index (lambda (index port)
+       (let ((write-index (lambda (index port)
                             (write-string
                              (string-pad-left (number->string index) 3)
                              port)
@@ -617,7 +616,6 @@ or #F meaning no limit."
              (line-end second-next-level -1)
              (group-end next-level)))
        (let ((buffer (mark-buffer start))
-             (buf-end (group-end start))
              (number (current-subproblem-number (group-end start))))
          (if number
              (let ((count (count-subproblems (buffer-dstate buffer))))