From 14d059022ac3496a525a1c32bf6f4691affd12f2 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 15 Aug 2011 17:56:12 -0400 Subject: [PATCH] Fix type of file->bytes-lines original commit: 13ef3849fcee7fa8a7bd5ecf988ed0bb4fbcf84a --- collects/typed-scheme/base-env/base-special-env.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/base-env/base-special-env.rkt b/collects/typed-scheme/base-env/base-special-env.rkt index daeb942d..ab849597 100644 --- a/collects/typed-scheme/base-env/base-special-env.rkt +++ b/collects/typed-scheme/base-env/base-special-env.rkt @@ -216,7 +216,7 @@ (->key -Pathlike #:line-mode (one-of/c 'linefeed 'return 'return-linefeed 'any 'any-one) #f #:mode (one-of/c 'binary 'text) #f - (-lst -String))] + (-lst -Bytes))] [((kw-expander-impl (syntax-local-value #'file->bytes-lines))) (-> (Un (-val #f) (one-of/c 'linefeed 'return 'return-linefeed 'any 'any-one)) -Boolean (Un (-val #f) (one-of/c 'binary 'text)) -Boolean