fix contract (#f can always happen-- it means the dialog was cancelled by the user)

2013-11-17 10:16:24 -06:00 · 2013-11-17 10:16:24 -06:00 · 4c65ee6d58
commit 4c65ee6d58
parent c0230fb6f4
1 changed files with 1 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
@ -15,7 +15,7 @@
         #:dir? [dir? boolean?])
        [res (dir?)
             (if (or dir? (not (equal? dir? the-unsupplied-arg)))
-                 (listof path?)
+                 (or/c (listof path?) #f)
                 (or/c path? #f))])]))

 (define (get-module-path-from-user #:init [init-value ""]