From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 22 Mar 2018 03:31:38 +0000 (-0700)
Subject: Don't write pathnames into debugging info.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~192
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1bc7c74751bd08a158f1d28b6aba21cba6c58a47;p=mit-scheme.git

Don't write pathnames into debugging info.
---

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))))))))