From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 17 Aug 1989 16:52:57 +0000 (+0000)
Subject: Make `load-debugging-info-on-demand?' affect only
X-Git-Tag: 20090517-FFI~11812
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bd39003bb6cbaf4e9889053b2c6c9a1832929315;p=mit-scheme.git

Make `load-debugging-info-on-demand?' affect only
`compiled-procedure/name'.
---

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 6e5a044ca..1169bb116 100644
--- a/v7/src/runtime/infutl.scm
+++ b/v7/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.10 1989/08/17 14:51:05 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.11 1989/08/17 16:52:57 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -115,7 +115,7 @@ MIT in each case. |#
     (let ((dbg-info
 	   (compiled-code-block/dbg-info block
 					 (if (default-object? demand-load?)
-					     load-debugging-info-on-demand?
+					     true
 					     demand-load?))))
       (and dbg-info
 	   (let ((find-procedure
@@ -138,9 +138,6 @@ MIT in each case. |#
 	       (lambda ()
 		 false)))))))
 
-(define load-debugging-info-on-demand?
-  false)
-
 (define (compiled-entry/block entry)
   (if (compiled-closure? entry)
       (compiled-entry/block (compiled-closure->entry entry))
@@ -288,11 +285,16 @@ MIT in each case. |#
 		 (loop (1+ index))))))))
 
 (define (compiled-procedure/name entry)
-  (let ((procedure (compiled-entry/dbg-object entry)))
+  (let ((procedure
+	 (compiled-entry/dbg-object entry load-debugging-info-on-demand?)))
     (and procedure
 	 (let ((name (dbg-procedure/name procedure)))
 	   (or (special-form-procedure-name? name)
 	       (symbol->string name))))))
+
+(define load-debugging-info-on-demand?
+  false)
+
 (define (special-form-procedure-name? name)
   (let ((association (assq name special-form-procedure-names)))
     (and association
diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index d68b60ab8..6c6e47ec6 100644
--- a/v8/src/runtime/infutl.scm
+++ b/v8/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.10 1989/08/17 14:51:05 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.11 1989/08/17 16:52:57 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -115,7 +115,7 @@ MIT in each case. |#
     (let ((dbg-info
 	   (compiled-code-block/dbg-info block
 					 (if (default-object? demand-load?)
-					     load-debugging-info-on-demand?
+					     true
 					     demand-load?))))
       (and dbg-info
 	   (let ((find-procedure
@@ -138,9 +138,6 @@ MIT in each case. |#
 	       (lambda ()
 		 false)))))))
 
-(define load-debugging-info-on-demand?
-  false)
-
 (define (compiled-entry/block entry)
   (if (compiled-closure? entry)
       (compiled-entry/block (compiled-closure->entry entry))
@@ -288,11 +285,16 @@ MIT in each case. |#
 		 (loop (1+ index))))))))
 
 (define (compiled-procedure/name entry)
-  (let ((procedure (compiled-entry/dbg-object entry)))
+  (let ((procedure
+	 (compiled-entry/dbg-object entry load-debugging-info-on-demand?)))
     (and procedure
 	 (let ((name (dbg-procedure/name procedure)))
 	   (or (special-form-procedure-name? name)
 	       (symbol->string name))))))
+
+(define load-debugging-info-on-demand?
+  false)
+
 (define (special-form-procedure-name? name)
   (let ((association (assq name special-form-procedure-names)))
     (and association