From fdcb22ea32b700c0c56895b86dc5330191d7f065 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 13 Aug 2011 17:45:20 -0400 Subject: [PATCH] comment out type that produces strange duplicate error message. --- collects/typed-scheme/base-env/base-special-env.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/typed-scheme/base-env/base-special-env.rkt b/collects/typed-scheme/base-env/base-special-env.rkt index 45d17eb00c..ffe0e06958 100644 --- a/collects/typed-scheme/base-env/base-special-env.rkt +++ b/collects/typed-scheme/base-env/base-special-env.rkt @@ -291,7 +291,6 @@ (-opt (-> Univ)) (-opt Univ) (-opt (-opt -Pathlike)) -Boolean -Boolean -Boolean Univ))] - [((kw-expander-proc (syntax-local-value #'make-handle-get-preference-locked))) (let ((lock-there-type (-opt (-> -Path Univ))) (max-delay-type -Real)) (cl->* @@ -471,16 +470,18 @@ . -> . (-lst -String))] + [((kw-expander-proc (syntax-local-value #'port->bytes-lines))) (cl->* (->key #:line-mode (one-of/c 'linefeed 'return 'return-linefeed 'any 'any-one) #f (-lst -Bytes)) (->key -Input-Port #:line-mode (one-of/c 'linefeed 'return 'return-linefeed 'any 'any-one) #f (-lst -Bytes)))] - [((kw-expander-impl (syntax-local-value #'port->bytes-lines))) +#; [((kw-expander-impl (syntax-local-value #'port->bytes-lines))) ((-opt (one-of/c 'linefeed 'return 'return-linefeed 'any 'any-one)) -Boolean (-opt -Input-Port) -Boolean . -> . (-lst -Bytes))] + [((kw-expander-proc (syntax-local-value #'display-lines))) (cl->* ((-lst Univ) #:separator Univ #f . ->key . -Void) @@ -491,4 +492,3 @@ (-opt -Output-Port) -Boolean . -> . -Void)] ) -