From ca1c97f00e11247f66773757024c383f5d7075c9 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 12 Nov 2013 10:36:04 -0600 Subject: [PATCH] guard a file-exists? call properly --- .../drracket/drracket/private/get-module-path.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt index e83e832fd5..64ed10c6cc 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt @@ -136,7 +136,8 @@ (define pth (send racket-path-tf get-value)) (define bkg (cond - [(and (file-exists? pth) + [(and (path-string? pth) + (file-exists? pth) (member 'execute (file-or-directory-permissions pth))) "white"] [else "yellow"]))