From cda38a4c3a129ff4d06b7512584e556c65b3d09b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 4 Mar 1999 06:08:04 +0000 Subject: [PATCH] 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. --- v7/src/compiler/base/toplev.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1