guard a file-exists? call properly

2013-11-12 10:36:04 -06:00 · 2013-11-12 10:36:04 -06:00 · ca1c97f00e
commit ca1c97f00e
parent d2ec491794
1 changed files with 2 additions and 1 deletions
--- 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"]))