From d44dc2acee4ff0f820f39bf46e29368c594c1e89 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 14 Mar 2002 04:44:32 +0000 Subject: [PATCH] Change PACKAGE-SET-PATHNAME to accept an optional argument that specifies the operating-system type. This is useful for cross-compilation. --- v7/src/runtime/packag.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/packag.scm b/v7/src/runtime/packag.scm index e341f434c..bbe8e9b13 100644 --- a/v7/src/runtime/packag.scm +++ b/v7/src/runtime/packag.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: packag.scm,v 14.39 2001/12/19 05:21:46 cph Exp $ +$Id: packag.scm,v 14.40 2002/03/14 04:44:32 cph Exp $ Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology @@ -201,14 +201,17 @@ USA. ;; program runs before it gets purified, some of its run-time state ;; can end up being purified also. (flush-purification-queue!)) - -(define (package-set-pathname pathname) + +(define (package-set-pathname pathname #!optional os-type) (make-pathname (pathname-host pathname) (pathname-device pathname) (pathname-directory pathname) (string-append (pathname-name pathname) "-" - (case microcode-id/operating-system + (case (if (or (default-object? os-type) + (not os-type)) + microcode-id/operating-system + os-type) ((NT) "w32") ((OS/2) "os2") ((UNIX) "unx") -- 2.25.1