scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

file-writeable => file-writable

This commit is contained in:
shivers 1995-10-28 22:04:58 +00:00
parent 325407b9fb
commit 05df0d4773
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scsh/fileinfo.scm
View File

@ -41,13 +41,22 @@
;;;;;; ;;;;;;
(define (file-not-readable? fd/port/fname) (file-not-accessible? 4 fd/port/fname)) (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-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-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))) (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 ;;; Returns