(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/error#<error>::display-exception
    (lambda (_self17535_ _port17536_)
      (call-with-parameters
       (lambda ()
         (let ((_$e17539_ (error-trace _self17535_)))
           (if _$e17539_
               ((lambda (_where17542_) (display* _where17542_ '": "))
                _$e17539_)
               '#!void))
         (display* '"[" (##type-name (object-type _self17535_)) '"] ")
         (displayln (error-message _self17535_))
         (let ((_irritants17544_ (error-irritants _self17535_)))
           (if (null? _irritants17544_)
               '#!void
               (begin
                 (display '"--- irritants: ")
                 (for-each
                  (lambda (_obj17546_) (display* _obj17546_ '" "))
                  _irritants17544_)
                 (newline)))))
       current-output-port
       _port17536_)))
  (bind-method!
   error::t
   'display-exception
   std/error#<error>::display-exception
   '#f)
  (define std/error#io-error::t
    (make-struct-type
     'std/error#io-error::t
     error::t
     '0
     'io-error
     '()
     '#f
     '()))
  (define std/error#io-error? (make-struct-predicate std/error#io-error::t))
  (define std/error#make-io-error
    (lambda _$args17409_
      (apply make-struct-instance std/error#io-error::t _$args17409_)))
  (define std/error#timeout-error::t
    (make-struct-type
     'std/error#timeout-error::t
     error::t
     '0
     'timeout-error
     '()
     '#f
     '()))
  (define std/error#timeout-error?
    (make-struct-predicate std/error#timeout-error::t))
  (define std/error#make-timeout-error
    (lambda _$args17406_
      (apply make-struct-instance std/error#timeout-error::t _$args17406_)))
  (define std/error#raise-io-error
    (lambda (_where17402_ _what17403_ . _irritants17404_)
      (raise (make-struct-instance
              std/error#io-error::t
              _what17403_
              _irritants17404_
              _where17402_))))
  (define std/error#raise-timeout
    (lambda (_where17398_ _what17399_ . _irritants17400_)
      (raise (make-struct-instance
              std/error#timeout-error::t
              _what17399_
              _irritants17400_
              _where17398_)))))
