From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 12 Oct 1988 07:48:24 +0000 (+0000)
Subject: Make pathname parser/unparser packages inherit from pathname package.
X-Git-Tag: 20090517-FFI~12517
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=61161ca0feea2a3c2209662c10f989dc2e537c86;p=mit-scheme.git

Make pathname parser/unparser packages inherit from pathname package.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 66c23ec98..7d0435cee 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.20 1988/10/12 06:23:00 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.21 1988/10/12 07:48:24 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -1081,7 +1081,7 @@ MIT in each case. |#
     ((unix) "unxpar")
     ((vms) "vmspar")
     (else "unkpar"))
-  (parent ())
+  (parent (runtime pathname))
   (export ()
 	  pathname-as-directory)
   (export (runtime pathname)
@@ -1092,7 +1092,7 @@ MIT in each case. |#
     ((unix) "unxunp")
     ((vms) "vmsunp")
     (else "unkunp"))
-  (parent ())
+  (parent (runtime pathname))
   (export (runtime pathname)
 	  pathname-unparse
 	  pathname-unparse-name))
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 46a7c867d..9216e6a46 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.20 1988/10/12 06:23:00 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.21 1988/10/12 07:48:24 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -1081,7 +1081,7 @@ MIT in each case. |#
     ((unix) "unxpar")
     ((vms) "vmspar")
     (else "unkpar"))
-  (parent ())
+  (parent (runtime pathname))
   (export ()
 	  pathname-as-directory)
   (export (runtime pathname)
@@ -1092,7 +1092,7 @@ MIT in each case. |#
     ((unix) "unxunp")
     ((vms) "vmsunp")
     (else "unkunp"))
-  (parent ())
+  (parent (runtime pathname))
   (export (runtime pathname)
 	  pathname-unparse
 	  pathname-unparse-name))