From: Chris Hanson Date: Wed, 18 Oct 1995 05:02:57 +0000 (+0000) Subject: Change MAKE-DIRECTORY and DELETE-DIRECTORY to strip off any trailing X-Git-Tag: 20090517-FFI~5885 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=184508e7eb10f1a671c82f16510af24b243b25e9;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/unxprm.scm b/v7/src/runtime/unxprm.scm index e8921c027..93cc4d7ec 100644 --- 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)