From bc435246416bf334a99303f1f9a696ace1a48a94 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 15 Nov 1990 19:07:18 +0000 Subject: [PATCH] Permit a compiled-code block's debugging-info to be #F. In that case, assume there is no debugging-info available. --- v7/src/runtime/infutl.scm | 29 +++++++++++++++-------------- v8/src/runtime/infutl.scm | 29 +++++++++++++++-------------- 2 files changed, 30 insertions(+), 28 deletions(-) diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm index 131a8da40..3d62bb11b 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.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 c57a73ed3..b45db0f44 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.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 '()) -- 2.25.1