From 05df0d47733b3fa802c1d4ee6e7dc4f2238bf304 Mon Sep 17 00:00:00 2001 From: shivers Date: Sat, 28 Oct 1995 22:04:58 +0000 Subject: [PATCH] file-writeable => file-writable --- scsh/fileinfo.scm | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/scsh/fileinfo.scm b/scsh/fileinfo.scm index 95f9f01..3413fb7 100644 --- a/scsh/fileinfo.scm +++ b/scsh/fileinfo.scm @@ -41,13 +41,22 @@ ;;;;;; (define (file-not-readable? fd/port/fname) (file-not-accessible? 4 fd/port/fname)) -(define (file-not-writeable? fd/port/fname) (file-not-accessible? 2 fd/port/fname)) +(define (file-not-writable? fd/port/fname) (file-not-accessible? 2 fd/port/fname)) (define (file-not-executable? fd/port/fname) (file-not-accessible? 1 fd/port/fname)) (define (file-readable? fd/port/fname) (not (file-not-readable? fd/port/fname))) -(define (file-writeable? fd/port/fname) (not (file-not-writeable? fd/port/fname))) +(define (file-writable? fd/port/fname) (not (file-not-writable? fd/port/fname))) (define (file-executable? fd/port/fname) (not (file-not-executable? fd/port/fname))) +;;; Spelling corrected. +(define file-not-writeable? + (deprecated-proc file-not-writable? "file-not-writeable?" + "Use file-not-writable? instead")) + +(define file-writeable? + (deprecated-proc file-writable? "file-writeable?" + "Use file-writable? instead")) + ;;;;;; ;;; Returns