From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 17 Sep 1991 14:53:45 +0000 (+0000)
Subject: Get rid of unused procedure.
X-Git-Tag: 20090517-FFI~10207
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=55aec33804b0a01af4bdb19cdf9dd6df6e9466ca;p=mit-scheme.git

Get rid of unused procedure.
---

diff --git a/v7/src/edwin/artdebug.scm b/v7/src/edwin/artdebug.scm
index 6dde63c6e..1666c3350 100644
--- 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.11 1991/09/17 14:51:44 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.12 1991/09/17 14:53:45 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -1041,12 +1041,6 @@ reduction shown in the previous subproblem."
 		   (length (cdr environment-list))
 		   brief?)))))
 
-(define (command/show-all-frames dstate)
-  (let ((environment-list (dstate/environment-list dstate)))
-    (if (pair? environment-list)
-	(show-frames (car (last-pair environment-list)) 0)
-	(undefined-environment))))
-
 (define (show-frames environment depth)
   (edwin-debugger-presentation
    (current-point)