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

guard a file-exists? call properly

Browse Source
This commit is contained in:
Robby Findler 2013-11-12 10:36:04 -06:00
parent d2ec491794
commit ca1c97f00e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt
View File

@ -136,7 +136,8 @@
(define pth (send racket-path-tf get-value)) (define pth (send racket-path-tf get-value))
(define bkg (define bkg
(cond (cond
[(and (file-exists? pth) [(and (path-string? pth)
(file-exists? pth)
(member 'execute (file-or-directory-permissions pth))) (member 'execute (file-or-directory-permissions pth)))
"white"] "white"]
[else "yellow"])) [else "yellow"]))