Use pathname object for info descriptor rather than namestring. This

will allow runtime system to use these descriptors on operating
systems other than the one on which the code is compiled.

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index e53262c9c1593005747aa7bfca46c47e4b0e5fb1..3e29f6bc77e7c96a7adddc3095ef96e1d5df2b3f 100644 (file)
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.55 1999/01/02 06:06:43 cph Exp $
+$Id: toplev.scm,v 4.56 1999/03/04 05:54:06 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -506,8 +506,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
        (wrapper
         (if (default-object? wrapper) in-compiler wrapper)))
     (fluid-let ((*info-output-filename*
-                (if (pathname? info-output-pathname)
-                    (->namestring info-output-pathname)
+                (if (string? info-output-pathname)
+                    (->pathname info-output-pathname)
                     *info-output-filename*))
                (*rtl-output-port* rtl-output-port)
                (*lap-output-port* lap-output-port)