(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/error#<error>::display-exception
    (lambda (_self527_ _port528_)
      (call-with-parameters
       (lambda ()
         (let ((_$e531_ (error-trace _self527_)))
           (if _$e531_
               ((lambda (_where534_) (display* _where534_ '": ")) _$e531_)
               '#!void))
         (display*
          '"["
          (let ((__tmp4137 (object-type _self527_)))
            (declare (not safe))
            (##type-name __tmp4137))
          '"] ")
         (displayln (error-message _self527_))
         (let ((_irritants536_ (error-irritants _self527_)))
           (if (null? _irritants536_)
               '#!void
               (begin
                 (display '"--- irritants: ")
                 (for-each
                  (lambda (_obj538_) (display* _obj538_ '" "))
                  _irritants536_)
                 (newline)))))
       current-output-port
       _port528_)))
  (bind-method!
   error::t
   'display-exception
   std/error#<error>::display-exception
   '#t)
  (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 _$args400_
      (apply make-struct-instance std/error#io-error::t _$args400_)))
  (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 _$args397_
      (apply make-struct-instance std/error#timeout-error::t _$args397_)))
  (define std/error#raise-io-error
    (lambda (_where393_ _what394_ . _irritants395_)
      (raise (make-struct-instance
              std/error#io-error::t
              _what394_
              _irritants395_
              _where393_))))
  (define std/error#raise-timeout
    (lambda (_where389_ _what390_ . _irritants391_)
      (raise (make-struct-instance
              std/error#timeout-error::t
              _what390_
              _irritants391_
              _where389_)))))
