Don't write pathnames into debugging info.

diff --git a/src/compiler/base/asstop.scm b/src/compiler/base/asstop.scm
index 81caa17400f3138aa65b8911aabd9d75119dda9b..0a2fb5296b8ad7407badae08a0964fa466824784 100644 (file)
--- 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))))))))