From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 4 Mar 1999 05:56:18 +0000 (+0000)
Subject: Load all pathname types on every operating system.  This allows
X-Git-Tag: 20090517-FFI~4583
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=caef8bfb6fa43396fcf48b24323d17dbe95737a7;p=mit-scheme.git

Load all pathname types on every operating system.  This allows
pathname objects dumped on one system to be used on another.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 2e72c06c3..3941b882d 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.320 1999/02/24 21:37:18 cph Exp $
+$Id: runtime.pkg,v 14.321 1999/03/04 05:55:08 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -1685,17 +1685,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (initialization (initialize-package!)))
 
 (define-package (runtime pathname unix)
+  (files "unxpth")
   (parent (runtime pathname))
-  (file-case os-type
-   ((unix) "unxpth")
-   (else))
   (initialization (initialize-package!)))
 
 (define-package (runtime pathname dos)
+  (files "dospth")
   (parent (runtime pathname))
-  (file-case os-type
-   ((dos nt os/2) "dospth")
-   (else))
   (initialization (initialize-package!)))
 
 (define-package (runtime population)
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index cc5c06bbf..437205be3 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.325 1999/02/24 21:37:22 cph Exp $
+$Id: runtime.pkg,v 14.326 1999/03/04 05:56:18 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -1689,17 +1689,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (initialization (initialize-package!)))
 
 (define-package (runtime pathname unix)
+  (files "unxpth")
   (parent (runtime pathname))
-  (file-case os-type
-   ((unix) "unxpth")
-   (else))
   (initialization (initialize-package!)))
 
 (define-package (runtime pathname dos)
+  (files "dospth")
   (parent (runtime pathname))
-  (file-case os-type
-   ((dos nt os/2) "dospth")
-   (else))
   (initialization (initialize-package!)))
 
 (define-package (runtime population)