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 6e5a044ca65dbdbf315ca991c04bcb4cfc95a25d..1169bb1161b125f903089231d08645c8f4de2b0d 100644 (file)
--- 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 d68b60ab85de43227d7b03bcb9aa995650a8d278..6c6e47ec68a4a739a70dd343d991feaebd732e9d 100644 (file)
--- 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