fix contract

2013-11-16 20:20:22 -06:00 · 2013-11-16 20:20:22 -06:00 · 31c14d51ae
commit 31c14d51ae
parent 077190c244
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
@ -14,7 +14,7 @@
         #:pref [pref symbol?]
         #:dir? [dir? boolean?])
        [res (dir?)
-             (if dir?
+             (if (or dir? (not (equal? dir? the-unsupplied-arg)))
                 (listof path?)
                 (or/c path? #f))])]))