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 c4d11bcf3ee676cfdecdb1b9d7cd79d66a562494..5c46f73b332925aa86ee167a8f2d4ff2fa051004 100644 (file)
--- 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 c4d11bcf3ee676cfdecdb1b9d7cd79d66a562494..5c46f73b332925aa86ee167a8f2d4ff2fa051004 100644 (file)
--- 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))