From 61161ca0feea2a3c2209662c10f989dc2e537c86 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 12 Oct 1988 07:48:24 +0000
Subject: [PATCH] Make pathname parser/unparser packages inherit from pathname
package.
---
v7/src/runtime/runtime.pkg | 6 +++---
v8/src/runtime/runtime.pkg | 6 +++---
2 files changed, 6 insertions(+), 6 deletions(-)
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))
--
2.25.1