From: Stephen Adams Date: Thu, 11 May 1995 14:06:13 +0000 (+0000) Subject: Removed useless definitions. X-Git-Tag: 20090517-FFI~6319 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9e97ecee80736380361a0516282f63ad7313a662;p=mit-scheme.git Removed useless definitions. --- diff --git a/v8/src/compiler/base/debug.scm b/v8/src/compiler/base/debug.scm index bda5ea532..4cf295393 100644 --- a/v8/src/compiler/base/debug.scm +++ b/v8/src/compiler/base/debug.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: debug.scm,v 1.2 1995/04/26 01:53:25 adams Exp $ +$Id: debug.scm,v 1.3 1995/05/11 14:06:13 adams Exp $ Copyright (c) 1988-1994 Massachusetts Institute of Technology @@ -41,34 +41,6 @@ MIT in each case. |# (write-line object) (for-each pp ((tagged-vector/description object) object)))) -(define (debug/find-procedure name) - (let loop ((procedures *procedures*)) - (and (not (null? procedures)) - (if (and (not (procedure-continuation? (car procedures))) - (or (eq? name (procedure-name (car procedures))) - (eq? name (procedure-label (car procedures))))) - (car procedures) - (loop (cdr procedures)))))) - -(define (debug/find-continuation number) - (let ((label - (intern (string-append "continuation-" (number->string number))))) - (let loop ((procedures *procedures*)) - (and (not (null? procedures)) - (if (and (procedure-continuation? (car procedures)) - (eq? label (procedure-label (car procedures)))) - (car procedures) - (loop (cdr procedures))))))) - -(define (debug/find-entry-node node) - (let ((node (->tagged-vector node))) - (if (eq? (expression-entry-node *root-expression*) node) - (write-line *root-expression*)) - (for-each (lambda (procedure) - (if (eq? (procedure-entry-node procedure) node) - (write-line procedure))) - *procedures*))) - (define (debug/where object) (cond ((compiled-code-block? object) (write-line (compiled-code-block/debugging-info object)))