From 1bc7c74751bd08a158f1d28b6aba21cba6c58a47 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 21 Mar 2018 20:31:38 -0700 Subject: [PATCH] Don't write pathnames into debugging info. --- src/compiler/base/asstop.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/compiler/base/asstop.scm b/src/compiler/base/asstop.scm index 81caa1740..0a2fb5296 100644 --- a/src/compiler/base/asstop.scm +++ b/src/compiler/base/asstop.scm @@ -259,7 +259,9 @@ USA. (vector 'DEBUGGING-INFO-WRAPPER 2 *debugging-key* - *info-output-filename* + (if (pathname? *info-output-filename*) + (->namestring *info-output-filename*) + *info-output-filename*) *recursive-compilation-number* #f)) (else @@ -275,7 +277,9 @@ USA. (vector 'DEBUGGING-INFO-WRAPPER 2 *debugging-key* - *info-output-filename* + (if (pathname? *info-output-filename*) + (->namestring *info-output-filename*) + *info-output-filename*) 0 #f)))))))) -- 2.25.1