From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 18 Oct 1995 05:09:08 +0000 (+0000)
Subject: Change MAKE-DIRECTORY and DELETE-DIRECTORY to strip off any trailing
X-Git-Tag: 20090517-FFI~5884
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dedc50a14a0803aba5759d659e9424a1e2d6ff1a;p=mit-scheme.git

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/dosprm.scm b/v7/src/runtime/dosprm.scm
index 384bf5132..f327a5ec4 100644
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dosprm.scm,v 1.29 1995/04/23 05:24:13 cph Exp $
+$Id: dosprm.scm,v 1.30 1995/10/18 05:09:08 cph Exp $
 
 Copyright (c) 1992-95 Massachusetts Institute of Technology
 
@@ -283,16 +283,12 @@ MIT in each case. |#
    (->namestring (merge-pathnames filename))))
 
 (define (make-directory name)
-  ;; No pathname-as-directory here because DOS does not know how
-  ;; to handle the trailing back-slash.
   ((ucode-primitive directory-make 1)
-   (->namestring (merge-pathnames name))))
+   (->namestring (directory-pathname-as-file (merge-pathnames name)))))
 
 (define (delete-directory name)
-  ;; No pathname-as-directory here because DOS does not know how
-  ;; to handle the trailing back-slash.
   ((ucode-primitive directory-delete 1)
-   (->namestring (merge-pathnames name))))
+   (->namestring (directory-pathname-as-file (merge-pathnames name)))))
 
 (define (os/default-end-of-line-translation)
   "\r\n")