suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

comment out type that produces strange duplicate error message.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2011-08-13 17:45:20 -04:00
parent 54c044c36a
commit fdcb22ea32
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/typed-scheme/base-env/base-special-env.rkt
View File

@ -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)]
)