From 163ff16ef389152f3822be6403654f169be855d3 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 5 Nov 1992 00:22:57 +0000
Subject: [PATCH] New version of apply. conversion to pathname objects during a
 directory-read operation no longer attemps to expand environment variables,
 etc.

---
 v7/src/runtime/runtime.pkg | 11 +++++++++--
 v8/src/runtime/runtime.pkg | 11 +++++++++--
 2 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index c4d11bcf3..5c46f73b3 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.161 1992/09/21 20:34:43 cph Exp $
+$Id: runtime.pkg,v 14.162 1992/11/05 00:22:57 jinx Exp $
 
-Copyright (c) 1988-92 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -140,6 +140,11 @@ MIT in each case. |#
 	  untrace-exit)
   (initialization (initialize-package!)))
 
+(define-package (runtime apply)
+  (files "apply")
+  (parent ())
+  (initialization (initialize-package!)))
+
 (define-package (runtime character)
   (files "char")
   (parent ())
@@ -445,6 +450,8 @@ MIT in each case. |#
     ;;(else "unkdir")
     (else))
   (parent ())
+  (export (runtime pathname)
+	  *expand-directory-prefixes?*)
   (export ()
 	  directory-read))
 
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index c4d11bcf3..5c46f73b3 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.161 1992/09/21 20:34:43 cph Exp $
+$Id: runtime.pkg,v 14.162 1992/11/05 00:22:57 jinx Exp $
 
-Copyright (c) 1988-92 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -140,6 +140,11 @@ MIT in each case. |#
 	  untrace-exit)
   (initialization (initialize-package!)))
 
+(define-package (runtime apply)
+  (files "apply")
+  (parent ())
+  (initialization (initialize-package!)))
+
 (define-package (runtime character)
   (files "char")
   (parent ())
@@ -445,6 +450,8 @@ MIT in each case. |#
     ;;(else "unkdir")
     (else))
   (parent ())
+  (export (runtime pathname)
+	  *expand-directory-prefixes?*)
   (export ()
 	  directory-read))
 
-- 
2.25.1