From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 4 Mar 1999 06:08:04 +0000 (+0000)
Subject: Use pathname object for info descriptor rather than namestring.  This
X-Git-Tag: 20090517-FFI~4582
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cda38a4c3a129ff4d06b7512584e556c65b3d09b;p=mit-scheme.git

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 3e29f6bc7..88997ff53 100644
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.56 1999/03/04 05:54:06 cph Exp $
+$Id: toplev.scm,v 4.57 1999/03/04 06:08:04 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 (string? info-output-pathname)
-		     (->pathname info-output-pathname)
+		 (if (pathname? info-output-pathname)
+		     info-output-pathname
 		     *info-output-filename*))
 		(*rtl-output-port* rtl-output-port)
 		(*lap-output-port* lap-output-port)