From a67a2a2ae27d258508ea56e90c72d6ec144d4d6c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 17 Nov 2013 22:10:41 -0600 Subject: [PATCH] on more attempt to fix this contract --- .../drracket/drracket/private/get-module-path.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 78717173df..a363681b94 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt @@ -14,9 +14,10 @@ #:pref [pref symbol?] #:dir? [dir? boolean?]) [res (dir?) - (if (or dir? (not (equal? dir? the-unsupplied-arg))) - (or/c (listof path?) #f) - (or/c path? #f))])])) + (if (or (not dir?) + (unsupplied-arg? dir?)) + (or/c path? #f) + (or/c (listof path?) #f))])])) (define (get-module-path-from-user #:init [init-value ""] #:pref [pref-sym #f]