From 184508e7eb10f1a671c82f16510af24b243b25e9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 18 Oct 1995 05:02:57 +0000 Subject: [PATCH] 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. --- v7/src/runtime/unxprm.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1