Permit a compiled-code block's debugging-info to be #F. In

that case, assume there is no debugging-info available.

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 131a8da40ba598384e567e7e063ddd0d1d6500d1..3d62bb11bd1091a3b8cbf8af47118f80d7f31715 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.18 1990/08/21 04:18:47 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.19 1990/11/15 19:07:18 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -222,19 +222,20 @@ MIT in each case. |#
                       (loop (1+ index)))))))))))
 
 (define (process-binf-filename binf-filename com-pathname)
-  (pathname->string
-   (rewrite-directory
-    (let ((binf-pathname
-          (pathname->absolute-pathname
-           (->pathname binf-filename))))
-      (if (and (equal? (pathname-name binf-pathname)
-                      (pathname-name com-pathname))
-              (not (equal? (pathname-type binf-pathname)
-                           (pathname-type com-pathname)))
-              (equal? (pathname-version binf-pathname)
-                      (pathname-version com-pathname)))
-         (pathname-new-type com-pathname (pathname-type binf-pathname))
-         binf-pathname)))))
+  (and binf-filename
+       (pathname->string
+       (rewrite-directory
+        (let ((binf-pathname
+               (pathname->absolute-pathname
+                (->pathname binf-filename))))
+          (if (and (equal? (pathname-name binf-pathname)
+                           (pathname-name com-pathname))
+                   (not (equal? (pathname-type binf-pathname)
+                                (pathname-type com-pathname)))
+                   (equal? (pathname-version binf-pathname)
+                           (pathname-version com-pathname)))
+              (pathname-new-type com-pathname (pathname-type binf-pathname))
+              binf-pathname))))))
 
 (define directory-rewriting-rules
   '())

diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index c57a73ed38550cfbd55de1d00979001cec500181..b45db0f44a4f71ecc588128c723169a3f6832b30 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.18 1990/08/21 04:18:47 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.19 1990/11/15 19:07:18 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -222,19 +222,20 @@ MIT in each case. |#
                       (loop (1+ index)))))))))))
 
 (define (process-binf-filename binf-filename com-pathname)
-  (pathname->string
-   (rewrite-directory
-    (let ((binf-pathname
-          (pathname->absolute-pathname
-           (->pathname binf-filename))))
-      (if (and (equal? (pathname-name binf-pathname)
-                      (pathname-name com-pathname))
-              (not (equal? (pathname-type binf-pathname)
-                           (pathname-type com-pathname)))
-              (equal? (pathname-version binf-pathname)
-                      (pathname-version com-pathname)))
-         (pathname-new-type com-pathname (pathname-type binf-pathname))
-         binf-pathname)))))
+  (and binf-filename
+       (pathname->string
+       (rewrite-directory
+        (let ((binf-pathname
+               (pathname->absolute-pathname
+                (->pathname binf-filename))))
+          (if (and (equal? (pathname-name binf-pathname)
+                           (pathname-name com-pathname))
+                   (not (equal? (pathname-type binf-pathname)
+                                (pathname-type com-pathname)))
+                   (equal? (pathname-version binf-pathname)
+                           (pathname-version com-pathname)))
+              (pathname-new-type com-pathname (pathname-type binf-pathname))
+              binf-pathname))))))
 
 (define directory-rewriting-rules
   '())