suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

guard call to file-or-directory-permissions

Browse Source 
related to PR 13359
also, Rackety
This commit is contained in:
Robby Findler 2013-01-05 11:26:10 -06:00
parent e66cd6f9c7
commit 0c76c692ac
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
collects/framework/private/text.rkt
View File

@ -1955,22 +1955,25 @@
(define read-write? #t)
(define/public (get-read-write?) read-write?)
(define/private (check-lock)
(let* ([filename (get-filename)]
[can-edit? (if (and filename
(file-exists? filename))
(and (member 'write (file-or-directory-permissions filename))
#t)
#t)])
(set! read-write? can-edit?)))
(define filename (get-filename))
(define can-edit?
(if (and filename
(file-exists? filename))
(and (member 'write
(with-handlers ([exn:fail:filesystem? (λ (x) '())])
(file-or-directory-permissions filename)))
#t)
#t))
(set! read-write? can-edit?))
(define/public (while-unlocked t)
(let ([unlocked? 'unint])
(dynamic-wind
(λ ()
(set! unlocked? read-write?)
(set! read-write? #t))
(λ () (t))
(λ () (set! read-write? unlocked?)))))
(define unlocked? 'unint)
(dynamic-wind
(λ ()
(set! unlocked? read-write?)
(set! read-write? #t))
(λ () (t))
(λ () (set! read-write? unlocked?))))
(define/augment (can-insert? x y)
(and read-write? (inner #t can-insert? x y)))