Make pathname parser/unparser packages inherit from pathname package.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 66c23ec983a48bb9215eee86dc2da42401444e18..7d0435cee41b8e419d1b4fa222dbd4482fa432fc 100644 (file)
--- 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 46a7c867d4f735c92ceff91da2e6f59dc1e0af72..9216e6a46cd948d213279372cca9fb1709a4fa8e 100644 (file)
--- 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))