comment out type that produces strange duplicate error message.

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