From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 5 Nov 1992 00:22:57 +0000 (+0000)
Subject: New version of apply.
X-Git-Tag: 20090517-FFI~8802
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=163ff16ef389152f3822be6403654f169be855d3;p=mit-scheme.git

New version of apply.
conversion to pathname objects during a directory-read operation no
longer attemps to expand environment variables, etc.
---

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))