Adjust open-input-file type for new keyword

2014-05-04 12:13:06 -04:00 · 2014-05-04 12:13:06 -04:00 · 7eb94179e7
commit 7eb94179e7
parent 51614ab0b2
1 changed files with 4 additions and 1 deletions
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/base-env.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/base-env.rkt
@ -2939,7 +2939,10 @@
  (cl->*
   (->optkey (-lst a) ((-> a a Univ)) #:key (-> a a) #f (-lst a))
   (->optkey (-lst a) ((-> b b Univ)) #:key (-> a b) #f (-lst a)))))
-(open-input-file (->key -Pathlike #:mode (one-of/c 'binary 'text) #f -Input-Port))
+(open-input-file (->key -Pathlike
+                        #:mode (one-of/c 'binary 'text) #f
+                        #:for-module? Univ #f
+                        -Input-Port))
 (open-output-file
 (->key
  -Pathlike