Removed useless definitions.

diff --git a/v8/src/compiler/base/debug.scm b/v8/src/compiler/base/debug.scm
index bda5ea53253a316b2e1e4af38266d7677a5a52e4..4cf295393fabf105bae083cdd1f4f58139b88bae 100644 (file)
--- 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)))