From 55aec33804b0a01af4bdb19cdf9dd6df6e9466ca Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Tue, 17 Sep 1991 14:53:45 +0000 Subject: [PATCH] Get rid of unused procedure. --- v7/src/edwin/artdebug.scm | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) 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) -- 2.25.1