Change MAKE-DIRECTORY and DELETE-DIRECTORY to strip off any trailing

slash from the filename before giving it to the primitive.  Previously
these were forcing a trailing slash onto the filename.  Most unix
implementations don't care about this, but Linux rejects the old
behavior, and the new behavior is more "correct", in the sense that
this is an operation on the file that is the directory.

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index e8921c02778efed137f89298e0a3f08ef153365c..93cc4d7ec606efd89bd9f5f895153686f6cf64f9 100644 (file)
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unxprm.scm,v 1.38 1995/04/23 05:24:18 cph Exp $
+$Id: unxprm.scm,v 1.39 1995/10/18 05:02:57 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -284,11 +284,11 @@ MIT in each case. |#
 
 (define (make-directory name)
   ((ucode-primitive directory-make 1)
-   (->namestring (pathname-as-directory (merge-pathnames name)))))
+   (->namestring (directory-pathname-as-file (merge-pathnames name)))))
 
 (define (delete-directory name)
   ((ucode-primitive directory-delete 1)
-   (->namestring (pathname-as-directory (merge-pathnames name)))))
+   (->namestring (directory-pathname-as-file (merge-pathnames name)))))
 
 (define (os/default-end-of-line-translation)
   #f)