(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/actor/proto#rpc-io-error::t
    (make-struct-type
     'std/actor/proto#rpc-io-error::t
     std/error#io-error::t
     '0
     'rpc-io-error
     '()
     '#f
     '()))
  (define std/actor/proto#rpc-io-error?
    (make-struct-predicate std/actor/proto#rpc-io-error::t))
  (define std/actor/proto#make-rpc-io-error
    (lambda _$args8927_
      (apply make-struct-instance
             std/actor/proto#rpc-io-error::t
             _$args8927_)))
  (define std/actor/proto#remote-error::t
    (make-struct-type
     'std/actor/proto#remote-error::t
     std/actor/message#actor-error::t
     '0
     'remote-error
     '()
     '#f
     '()))
  (define std/actor/proto#remote-error?
    (make-struct-predicate std/actor/proto#remote-error::t))
  (define std/actor/proto#make-remote-error
    (lambda _$args8924_
      (apply make-struct-instance
             std/actor/proto#remote-error::t
             _$args8924_)))
  (define std/actor/proto#rpc-error::t
    (make-struct-type
     'std/actor/proto#rpc-error::t
     std/actor/message#actor-error::t
     '0
     'rpc-error
     '()
     '#f
     '()))
  (define std/actor/proto#rpc-error?
    (make-struct-predicate std/actor/proto#rpc-error::t))
  (define std/actor/proto#make-rpc-error
    (lambda _$args8921_
      (apply make-struct-instance std/actor/proto#rpc-error::t _$args8921_)))
  (define std/actor/proto#remote-error:::init!
    std/actor/message#actor-error:::init!)
  (bind-method!
   std/actor/proto#remote-error::t
   ':init!
   std/actor/proto#remote-error:::init!
   '#f)
  (define std/actor/proto#rpc-error:::init!
    std/actor/message#actor-error:::init!)
  (bind-method!
   std/actor/proto#rpc-error::t
   ':init!
   std/actor/proto#rpc-error:::init!
   '#f)
  (define std/actor/proto#raise-rpc-io-error
    (lambda (_where8673_ _what8674_ . _irritants8675_)
      (raise (make-struct-instance
              std/actor/proto#rpc-io-error::t
              _what8674_
              _irritants8675_
              _where8673_))))
  (define std/actor/proto#handle::t
    (make-struct-type
     'std/actor/proto#handle::t
     std/actor/message#proxy::t
     '1
     'handle
     '()
     ':init!
     '(uuid)))
  (define std/actor/proto#handle?
    (make-struct-predicate std/actor/proto#handle::t))
  (define std/actor/proto#make-handle
    (lambda _$args8670_
      (apply make-struct-instance std/actor/proto#handle::t _$args8670_)))
  (define std/actor/proto#handle-uuid
    (make-struct-field-accessor std/actor/proto#handle::t '0))
  (define std/actor/proto#handle-uuid-set!
    (make-struct-field-mutator std/actor/proto#handle::t '0))
  (define std/actor/proto#remote::t
    (make-struct-type
     'std/actor/proto#remote::t
     std/actor/proto#handle::t
     '2
     'remote
     '((final: . #t))
     '#f
     '(address proto)))
  (define std/actor/proto#remote?
    (make-struct-predicate std/actor/proto#remote::t))
  (define std/actor/proto#make-remote
    (lambda _$args8667_
      (apply make-struct-instance std/actor/proto#remote::t _$args8667_)))
  (define std/actor/proto#remote-address
    (make-struct-field-accessor std/actor/proto#remote::t '0))
  (define std/actor/proto#remote-proto
    (make-struct-field-accessor std/actor/proto#remote::t '1))
  (define std/actor/proto#remote-address-set!
    (make-struct-field-mutator std/actor/proto#remote::t '0))
  (define std/actor/proto#remote-proto-set!
    (make-struct-field-mutator std/actor/proto#remote::t '1))
  (define std/actor/proto#handle:::init!
    (lambda (_self8663_ _handler8664_ _id8665_)
      (if (let ((__tmp14819
                 (let () (declare (not safe)) (##vector-length _self8663_))))
            (declare (not safe))
            (##fx< '2 __tmp14819))
          (begin
            (let ()
              (declare (not safe))
              (##vector-set! _self8663_ '1 _handler8664_))
            (let ((__tmp14820 (std/misc/uuid#UUID _id8665_)))
              (declare (not safe))
              (##vector-set! _self8663_ '2 __tmp14820)))
          (error '"struct-instance-init!: too many arguments for struct"
                 _self8663_))))
  (bind-method!
   std/actor/proto#handle::t
   ':init!
   std/actor/proto#handle:::init!
   '#f)
  (define std/actor/proto#remote:::init!
    (lambda (_self8535_ _handler8536_ _id8537_ _address8538_ _proto8539_)
      (if (let ((__tmp14821
                 (let () (declare (not safe)) (##vector-length _self8535_))))
            (declare (not safe))
            (##fx< '4 __tmp14821))
          (begin
            (let ()
              (declare (not safe))
              (##vector-set! _self8535_ '1 _handler8536_))
            (let ((__tmp14822 (std/misc/uuid#UUID _id8537_)))
              (declare (not safe))
              (##vector-set! _self8535_ '2 __tmp14822))
            (let ()
              (declare (not safe))
              (##vector-set! _self8535_ '3 _address8538_))
            (let ()
              (declare (not safe))
              (##vector-set! _self8535_ '4 _proto8539_)))
          (error '"struct-instance-init!: too many arguments for struct"
                 _self8535_))))
  (bind-method!
   std/actor/proto#remote::t
   ':init!
   std/actor/proto#remote:::init!
   '#f)
  (define std/actor/proto#remote=?
    (lambda (_a8336_ _b8337_)
      (let ((_a83388352_ _a8336_) (_b83398354_ _b8337_))
        (let* ((_E83418358_
                (lambda ()
                  (error '"No clause matching" _a83388352_ _b83398354_)))
               (_K83428370_
                (lambda (_proto-a8361_
                         _address-a8362_
                         _uuid-a8363_
                         _proxy-a8364_
                         _proto-b8365_
                         _address-b8366_
                         _uuid-b8367_
                         _proxy-b8368_)
                  (if (eq? _proxy-a8364_ _proxy-b8368_)
                      (if (std/misc/uuid#uuid=? _uuid-a8363_ _uuid-b8367_)
                          (if (equal? _address-a8362_ _address-b8366_)
                              (eq? _proto-a8361_ _proto-b8365_)
                              '#f)
                          '#f)
                      '#f))))
          (if (let ()
                (declare (not safe))
                (##structure-direct-instance-of?
                 _a83388352_
                 'std/actor/proto#remote::t))
              (let* ((_e83478373_
                      (let ()
                        (declare (not safe))
                        (##vector-ref _a83388352_ '1)))
                     (_proxy-a8376_ _e83478373_)
                     (_e83488378_
                      (let ()
                        (declare (not safe))
                        (##vector-ref _a83388352_ '2)))
                     (_uuid-a8381_ _e83488378_)
                     (_e83498383_
                      (let ()
                        (declare (not safe))
                        (##vector-ref _a83388352_ '3)))
                     (_address-a8386_ _e83498383_)
                     (_e83508388_
                      (let ()
                        (declare (not safe))
                        (##vector-ref _a83388352_ '4)))
                     (_proto-a8391_ _e83508388_))
                (if (let ()
                      (declare (not safe))
                      (##structure-direct-instance-of?
                       _b83398354_
                       'std/actor/proto#remote::t))
                    (let* ((_e83438393_
                            (let ()
                              (declare (not safe))
                              (##vector-ref _b83398354_ '1)))
                           (_proxy-b8396_ _e83438393_)
                           (_e83448398_
                            (let ()
                              (declare (not safe))
                              (##vector-ref _b83398354_ '2)))
                           (_uuid-b8401_ _e83448398_)
                           (_e83458403_
                            (let ()
                              (declare (not safe))
                              (##vector-ref _b83398354_ '3)))
                           (_address-b8406_ _e83458403_)
                           (_e83468408_
                            (let ()
                              (declare (not safe))
                              (##vector-ref _b83398354_ '4)))
                           (_proto-b8411_ _e83468408_))
                      (_K83428370_
                       _proto-a8391_
                       _address-a8386_
                       _uuid-a8381_
                       _proxy-a8376_
                       _proto-b8411_
                       _address-b8406_
                       _uuid-b8401_
                       _proxy-b8396_))
                    (_E83418358_)))
              (_E83418358_))))))
  (define std/actor/proto#remote-hash
    (lambda (_r8301_)
      (let* ((_r83028310_ _r8301_)
             (_E83048314_
              (lambda () (error '"No clause matching" _r83028310_)))
             (_K83058320_
              (lambda (_address8317_ _uuid8318_)
                (let ((__tmp14824 (std/misc/uuid#uuid-hash _uuid8318_))
                      (__tmp14823 (equal?-hash _address8317_)))
                  (declare (not safe))
                  (##fxxor __tmp14824 __tmp14823)))))
        (if (let ()
              (declare (not safe))
              (##structure-direct-instance-of?
               _r83028310_
               'std/actor/proto#remote::t))
            (let* ((_e83068323_
                    (let ()
                      (declare (not safe))
                      (##vector-ref _r83028310_ '1)))
                   (_e83078326_
                    (let ()
                      (declare (not safe))
                      (##vector-ref _r83028310_ '2)))
                   (_uuid8329_ _e83078326_)
                   (_e83088331_
                    (let ()
                      (declare (not safe))
                      (##vector-ref _r83028310_ '3)))
                   (_address8334_ _e83088331_))
              (_K83058320_ _address8334_ _uuid8329_))
            (_E83048314_)))))
  (define std/actor/proto#!rpc::t
    (make-struct-type 'std/actor/proto#!rpc::t '#f '0 '!rpc '() '#f '()))
  (define std/actor/proto#!rpc?
    (make-struct-predicate std/actor/proto#!rpc::t))
  (define std/actor/proto#make-!rpc
    (lambda _$args8298_
      (apply make-struct-instance std/actor/proto#!rpc::t _$args8298_)))
  (define std/actor/proto#!call::t
    (make-struct-type
     'std/actor/proto#!call::t
     std/actor/proto#!rpc::t
     '2
     '!call
     '((final: . #t))
     '#f
     '(e k)))
  (define std/actor/proto#!call?
    (make-struct-predicate std/actor/proto#!call::t))
  (define std/actor/proto#make-!call
    (lambda _$args8295_
      (apply make-struct-instance std/actor/proto#!call::t _$args8295_)))
  (define std/actor/proto#!call-e
    (make-struct-field-accessor std/actor/proto#!call::t '0))
  (define std/actor/proto#!call-k
    (make-struct-field-accessor std/actor/proto#!call::t '1))
  (define std/actor/proto#!call-e-set!
    (make-struct-field-mutator std/actor/proto#!call::t '0))
  (define std/actor/proto#!call-k-set!
    (make-struct-field-mutator std/actor/proto#!call::t '1))
  (define std/actor/proto#!value::t
    (make-struct-type
     'std/actor/proto#!value::t
     std/actor/proto#!rpc::t
     '2
     '!value
     '((final: . #t))
     '#f
     '(e k)))
  (define std/actor/proto#!value?
    (make-struct-predicate std/actor/proto#!value::t))
  (define std/actor/proto#make-!value
    (lambda _$args8292_
      (apply make-struct-instance std/actor/proto#!value::t _$args8292_)))
  (define std/actor/proto#!value-e
    (make-struct-field-accessor std/actor/proto#!value::t '0))
  (define std/actor/proto#!value-k
    (make-struct-field-accessor std/actor/proto#!value::t '1))
  (define std/actor/proto#!value-e-set!
    (make-struct-field-mutator std/actor/proto#!value::t '0))
  (define std/actor/proto#!value-k-set!
    (make-struct-field-mutator std/actor/proto#!value::t '1))
  (define std/actor/proto#!error::t
    (make-struct-type
     'std/actor/proto#!error::t
     std/actor/proto#!rpc::t
     '2
     '!error
     '((final: . #t))
     '#f
     '(e k)))
  (define std/actor/proto#!error?
    (make-struct-predicate std/actor/proto#!error::t))
  (define std/actor/proto#make-!error
    (lambda _$args8289_
      (apply make-struct-instance std/actor/proto#!error::t _$args8289_)))
  (define std/actor/proto#!error-e
    (make-struct-field-accessor std/actor/proto#!error::t '0))
  (define std/actor/proto#!error-k
    (make-struct-field-accessor std/actor/proto#!error::t '1))
  (define std/actor/proto#!error-e-set!
    (make-struct-field-mutator std/actor/proto#!error::t '0))
  (define std/actor/proto#!error-k-set!
    (make-struct-field-mutator std/actor/proto#!error::t '1))
  (define std/actor/proto#!event::t
    (make-struct-type
     'std/actor/proto#!event::t
     std/actor/proto#!rpc::t
     '1
     '!event
     '((final: . #t))
     '#f
     '(e)))
  (define std/actor/proto#!event?
    (make-struct-predicate std/actor/proto#!event::t))
  (define std/actor/proto#make-!event
    (lambda _$args8286_
      (apply make-struct-instance std/actor/proto#!event::t _$args8286_)))
  (define std/actor/proto#!event-e
    (make-struct-field-accessor std/actor/proto#!event::t '0))
  (define std/actor/proto#!event-e-set!
    (make-struct-field-mutator std/actor/proto#!event::t '0))
  (define std/actor/proto#!stream::t
    (make-struct-type
     'std/actor/proto#!stream::t
     std/actor/proto#!rpc::t
     '2
     '!stream
     '((final: . #t))
     '#f
     '(e k)))
  (define std/actor/proto#!stream?
    (make-struct-predicate std/actor/proto#!stream::t))
  (define std/actor/proto#make-!stream
    (lambda _$args8283_
      (apply make-struct-instance std/actor/proto#!stream::t _$args8283_)))
  (define std/actor/proto#!stream-e
    (make-struct-field-accessor std/actor/proto#!stream::t '0))
  (define std/actor/proto#!stream-k
    (make-struct-field-accessor std/actor/proto#!stream::t '1))
  (define std/actor/proto#!stream-e-set!
    (make-struct-field-mutator std/actor/proto#!stream::t '0))
  (define std/actor/proto#!stream-k-set!
    (make-struct-field-mutator std/actor/proto#!stream::t '1))
  (define std/actor/proto#!yield::t
    (make-struct-type
     'std/actor/proto#!yield::t
     std/actor/proto#!rpc::t
     '2
     '!yield
     '((final: . #t))
     '#f
     '(e k)))
  (define std/actor/proto#!yield?
    (make-struct-predicate std/actor/proto#!yield::t))
  (define std/actor/proto#make-!yield
    (lambda _$args8280_
      (apply make-struct-instance std/actor/proto#!yield::t _$args8280_)))
  (define std/actor/proto#!yield-e
    (make-struct-field-accessor std/actor/proto#!yield::t '0))
  (define std/actor/proto#!yield-k
    (make-struct-field-accessor std/actor/proto#!yield::t '1))
  (define std/actor/proto#!yield-e-set!
    (make-struct-field-mutator std/actor/proto#!yield::t '0))
  (define std/actor/proto#!yield-k-set!
    (make-struct-field-mutator std/actor/proto#!yield::t '1))
  (define std/actor/proto#!end::t
    (make-struct-type
     'std/actor/proto#!end::t
     std/actor/proto#!rpc::t
     '1
     '!end
     '((final: . #t))
     '#f
     '(k)))
  (define std/actor/proto#!end?
    (make-struct-predicate std/actor/proto#!end::t))
  (define std/actor/proto#make-!end
    (lambda _$args8277_
      (apply make-struct-instance std/actor/proto#!end::t _$args8277_)))
  (define std/actor/proto#!end-k
    (make-struct-field-accessor std/actor/proto#!end::t '0))
  (define std/actor/proto#!end-k-set!
    (make-struct-field-mutator std/actor/proto#!end::t '0))
  (define std/actor/proto#!continue::t
    (make-struct-type
     'std/actor/proto#!continue::t
     std/actor/proto#!rpc::t
     '1
     '!continue
     '((final: . #t))
     '#f
     '(k)))
  (define std/actor/proto#!continue?
    (make-struct-predicate std/actor/proto#!continue::t))
  (define std/actor/proto#make-!continue
    (lambda _$args8274_
      (apply make-struct-instance std/actor/proto#!continue::t _$args8274_)))
  (define std/actor/proto#!continue-k
    (make-struct-field-accessor std/actor/proto#!continue::t '0))
  (define std/actor/proto#!continue-k-set!
    (make-struct-field-mutator std/actor/proto#!continue::t '0))
  (define std/actor/proto#!close::t
    (make-struct-type
     'std/actor/proto#!close::t
     std/actor/proto#!rpc::t
     '1
     '!close
     '((final: . #t))
     '#f
     '(k)))
  (define std/actor/proto#!close?
    (make-struct-predicate std/actor/proto#!close::t))
  (define std/actor/proto#make-!close
    (lambda _$args8271_
      (apply make-struct-instance std/actor/proto#!close::t _$args8271_)))
  (define std/actor/proto#!close-k
    (make-struct-field-accessor std/actor/proto#!close::t '0))
  (define std/actor/proto#!close-k-set!
    (make-struct-field-mutator std/actor/proto#!close::t '0))
  (define std/actor/proto#!abort::t
    (make-struct-type
     'std/actor/proto#!abort::t
     std/actor/proto#!rpc::t
     '1
     '!abort
     '((final: . #t))
     '#f
     '(k)))
  (define std/actor/proto#!abort?
    (make-struct-predicate std/actor/proto#!abort::t))
  (define std/actor/proto#make-!abort
    (lambda _$args8268_
      (apply make-struct-instance std/actor/proto#!abort::t _$args8268_)))
  (define std/actor/proto#!abort-k
    (make-struct-field-accessor std/actor/proto#!abort::t '0))
  (define std/actor/proto#!abort-k-set!
    (make-struct-field-mutator std/actor/proto#!abort::t '0))
  (define std/actor/proto#!sync::t
    (make-struct-type
     'std/actor/proto#!sync::t
     std/actor/proto#!rpc::t
     '1
     '!sync
     '((final: . #t))
     '#f
     '(k)))
  (define std/actor/proto#!sync?
    (make-struct-predicate std/actor/proto#!sync::t))
  (define std/actor/proto#make-!sync
    (lambda _$args8265_
      (apply make-struct-instance std/actor/proto#!sync::t _$args8265_)))
  (define std/actor/proto#!sync-k
    (make-struct-field-accessor std/actor/proto#!sync::t '0))
  (define std/actor/proto#!sync-k-set!
    (make-struct-field-mutator std/actor/proto#!sync::t '0))
  (define std/actor/proto#!token::t
    (make-struct-type
     'std/actor/proto#!token::t
     '#f
     '0
     '!token
     '((final: . #t))
     '#f
     '()))
  (define std/actor/proto#!token?
    (make-struct-predicate std/actor/proto#!token::t))
  (define std/actor/proto#make-!token
    (lambda _$args8262_
      (apply make-struct-instance std/actor/proto#!token::t _$args8262_)))
  (define std/actor/proto#!!call-recv
    (lambda (_k8121_ _dest8122_)
      (let _loop81238125_ ()
        (let ((_next8129_ (thread-mailbox-next)))
          ((lambda (_$message8132_)
             (let* ((_$message81348144_ _$message8132_)
                    (_else81368152_ (lambda () (_loop81238125_)))
                    (_K81388239_
                     (lambda (_$options8155_
                              _$dest8157_
                              _$source8159_
                              _$value8161_)
                       (let* ((_$value81788190_ _$value8161_)
                              (_else81818198_ (lambda () (_loop81238125_))))
                         (let ((_K81868224_
                                (lambda (_val8222_)
                                  (thread-mailbox-extract-and-rewind)
                                  _val8222_))
                               (_K81838204_
                                (lambda (_obj8202_)
                                  (thread-mailbox-extract-and-rewind)
                                  (if (string? _obj8202_)
                                      (raise (make-struct-instance
                                              std/actor/message#actor-error::t
                                              '!!call
                                              _obj8202_))
                                      (raise _obj8202_)))))
                           (let ((_try-match81808219_
                                  (lambda ()
                                    (if (let ()
                                          (declare (not safe))
                                          (##structure-direct-instance-of?
                                           _$value81788190_
                                           'std/actor/proto#!error::t))
                                        (let* ((_e81848207_
                                                (let ()
                                                  (declare (not safe))
                                                  (##vector-ref
                                                   _$value81788190_
                                                   '1)))
                                               (_e81858212_
                                                (let ()
                                                  (declare (not safe))
                                                  (##vector-ref
                                                   _$value81788190_
                                                   '2))))
                                          (if ((lambda (_g82148216_)
                                                 (eq? _g82148216_ _k8121_))
                                               _e81858212_)
                                              (let ((_obj8210_ _e81848207_))
                                                (_K81838204_ _obj8210_))
                                              (_loop81238125_)))
                                        (_loop81238125_)))))
                             (if (let ()
                                   (declare (not safe))
                                   (##structure-direct-instance-of?
                                    _$value81788190_
                                    'std/actor/proto#!value::t))
                                 (let* ((_e81878227_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref _$value81788190_ '1)))
                                        (_e81888232_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref
                                            _$value81788190_
                                            '2))))
                                   (if ((lambda (_g82348236_)
                                          (eq? _g82348236_ _k8121_))
                                        _e81888232_)
                                       (let ((_val8230_ _e81878227_))
                                         (_K81868224_ _val8230_))
                                       (_loop81238125_)))
                                 (_try-match81808219_))))))))
               (if (let ()
                     (declare (not safe))
                     (##structure-direct-instance-of?
                      _$message81348144_
                      'std/actor/message#message::t))
                   (let* ((_e81398242_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _$message81348144_ '1)))
                          (_$value8245_ _e81398242_)
                          (_e81408247_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _$message81348144_ '2)))
                          (_$source8250_ _e81408247_)
                          (_e81418252_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _$message81348144_ '3)))
                          (_$dest8255_ _e81418252_)
                          (_e81428257_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _$message81348144_ '4)))
                          (_$options8260_ _e81428257_))
                     (_K81388239_
                      _$options8260_
                      _$dest8255_
                      _$source8250_
                      _$value8245_))
                   (_loop81238125_))))
           _next8129_)))))
  (define std/actor/proto#!!stream-pipe
    (lambda (_start7891_)
      (letrec ((_stream-start7893_
                (lambda (_compl8108_ _outp8109_)
                  (let ((_k8119_ (with-exception-catcher
                                  (lambda (_g81108112_)
                                    (if '#t
                                        (let ((_e8115_ _g81108112_))
                                          (std/misc/completion#completion-error!
                                           _compl8108_
                                           _e8115_)
                                          (raise _e8115_))
                                        (raise _g81108112_)))
                                  (lambda () (_start7891_)))))
                    (std/misc/completion#completion-post! _compl8108_ '#!void)
                    (_stream-handler7894_ _k8119_ _outp8109_))))
               (_stream-handler7894_
                (lambda (_k7908_ _outp7909_)
                  (let _lp7911_ ((_close?7913_ '#f))
                    (let _loop79147916_ ()
                      (let ((_next7920_ (thread-mailbox-next)))
                        ((lambda (_$message7923_)
                           (let* ((_$message79257935_ _$message7923_)
                                  (_else79277943_ (lambda () (_loop79147916_)))
                                  (_K79298085_
                                   (lambda (_$options7946_
                                            _$dest7948_
                                            _$source7950_
                                            _$value7952_)
                                     (let* ((_$value79737994_ _$value7952_)
                                            (_else79798002_
                                             (lambda () (_loop79147916_))))
                                       (let ((_K79908070_
                                              (lambda (_val8068_)
                                                (thread-mailbox-extract-and-rewind)
                                                (write _val8068_ _outp7909_)
                                                (_lp7911_ _close?7913_)))
                                             (_K79888055_
                                              (lambda ()
                                                (thread-mailbox-extract-and-rewind)
                                                (if _close?7913_
                                                    (std/actor/message#send-message__0
                                                     _$source7950_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##structure
                                                        std/actor/proto#!close::t
                                                        _k7908_)))
                                                    (std/actor/message#send-message__0
                                                     _$source7950_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##structure
                                                        std/actor/proto#!continue::t
                                                        _k7908_))))
                                                (_lp7911_ _close?7913_)))
                                             (_K79868040_
                                              (lambda ()
                                                (thread-mailbox-extract-and-rewind)
                                                (close-port _outp7909_)))
                                             (_K79838022_
                                              (lambda (_k8017_ _obj8018_)
                                                (thread-mailbox-extract-and-rewind)
                                                (let ((_err8020_
                                                       (if (string? _obj8018_)
                                                           (make-struct-instance
                                                            std/actor/message#actor-error::t
                                                            '!!stream
                                                            _obj8018_)
                                                           _obj8018_)))
                                                  (write _err8020_ _outp7909_)
                                                  (close-port _outp7909_))))
                                             (_K79818007_
                                              (lambda ()
                                                (thread-mailbox-extract-and-rewind)
                                                (_lp7911_ '#t))))
                                         (let* ((_try-match79788013_
                                                 (lambda ()
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (##structure-direct-instance-of?
                                                          _$value79737994_
                                                          'std/actor/proto#!close::t))
                                                       (let ((_e79828010_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##vector-ref _$value79737994_ '1))))
                 (_K79818007_))
               (_loop79147916_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_try-match79778035_
                                                 (lambda ()
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (##structure-direct-instance-of?
                                                          _$value79737994_
                                                          'std/actor/proto#!error::t))
                                                       (let* ((_e79848025_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (##vector-ref _$value79737994_ '1)))
                      (_e79858030_
                       (let ()
                         (declare (not safe))
                         (##vector-ref _$value79737994_ '2))))
                 (let ((_obj8028_ _e79848025_) (_k8033_ _e79858030_))
                   (_K79838022_ _k8033_ _obj8028_)))
               (_try-match79788013_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_try-match79768050_
                                                 (lambda ()
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (##structure-direct-instance-of?
                                                          _$value79737994_
                                                          'std/actor/proto#!end::t))
                                                       (let ((_e79878043_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##vector-ref _$value79737994_ '1))))
                 (if ((lambda (_g80458047_) (eq? _g80458047_ _k7908_))
                      _e79878043_)
                     (_K79868040_)
                     (_loop79147916_)))
               (_try-match79778035_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_try-match79758065_
                                                 (lambda ()
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (##structure-direct-instance-of?
                                                          _$value79737994_
                                                          'std/actor/proto#!sync::t))
                                                       (let ((_e79898058_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##vector-ref _$value79737994_ '1))))
                 (if ((lambda (_g80608062_) (eq? _g80608062_ _k7908_))
                      _e79898058_)
                     (_K79888055_)
                     (_loop79147916_)))
               (_try-match79768050_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           (if (let ()
                                                 (declare (not safe))
                                                 (##structure-direct-instance-of?
                                                  _$value79737994_
                                                  'std/actor/proto#!yield::t))
                                               (let* ((_e79918073_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _$value79737994_
                                                          '1)))
                                                      (_e79928078_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _$value79737994_
                                                          '2))))
                                                 (if ((lambda (_g80808082_)
                                                        (eq? _g80808082_
                                                             _k7908_))
                                                      _e79928078_)
                                                     (let ((_val8076_
                                                            _e79918073_))
                                                       (_K79908070_ _val8076_))
                                                     (_loop79147916_)))
                                               (_try-match79758065_))))))))
                             (if (let ()
                                   (declare (not safe))
                                   (##structure-direct-instance-of?
                                    _$message79257935_
                                    'std/actor/message#message::t))
                                 (let* ((_e79308088_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref
                                            _$message79257935_
                                            '1)))
                                        (_$value8091_ _e79308088_)
                                        (_e79318093_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref
                                            _$message79257935_
                                            '2)))
                                        (_$source8096_ _e79318093_)
                                        (_e79328098_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref
                                            _$message79257935_
                                            '3)))
                                        (_$dest8101_ _e79328098_)
                                        (_e79338103_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref
                                            _$message79257935_
                                            '4)))
                                        (_$options8106_ _e79338103_))
                                   (_K79298085_
                                    _$options8106_
                                    _$dest8101_
                                    _$source8096_
                                    _$value8091_))
                                 (_loop79147916_))))
                         _next7920_)))))))
        (let* ((_compl7896_
                (let ((__obj14818
                       (make-object std/misc/completion#completion::t '5)))
                  (std/misc/completion#completion:::init! __obj14818)
                  __obj14818))
               (_g14825_
                (open-vector-pipe
                 (cons 'permanent-close:
                       (cons '#t (cons 'direction: (cons 'input '()))))
                 (cons 'permanent-close:
                       (cons '#t (cons 'direction: (cons 'output '())))))))
          (begin
            (let ((_g14826_
                   (let ()
                     (declare (not safe))
                     (if (##values? _g14825_) (##vector-length _g14825_) 1))))
              (if (not (let () (declare (not safe)) (##fx= _g14826_ 2)))
                  (error "Context expects 2 values" _g14826_)))
            (let ((_inp7898_
                   (let () (declare (not safe)) (##vector-ref _g14825_ 0)))
                  (_outp7899_
                   (let () (declare (not safe)) (##vector-ref _g14825_ 1))))
              (let* ((_handler7901_
                      (gerbil/gambit/threads#spawn/name
                       'stream-pipe
                       _stream-start7893_
                       _compl7896_
                       _outp7899_))
                     (_close7904_
                      (lambda ()
                        (std/actor/message#send-message__0
                         _handler7901_
                         (let ()
                           (declare (not safe))
                           (##structure std/actor/proto#!close::t '#!void))))))
                (std/misc/completion#completion-wait! _compl7896_)
                (make-will _inp7898_ (lambda (_g14827_) (_close7904_)))
                (values _inp7898_ _close7904_))))))))
  (define std/actor/proto#!protocol::t
    (make-struct-type
     'std/actor/proto#!protocol::t
     '#f
     '3
     '!protocol
     '((final: . #t))
     '#f
     '(id super types)))
  (define std/actor/proto#!protocol?
    (make-struct-predicate std/actor/proto#!protocol::t))
  (define std/actor/proto#make-!protocol
    (lambda _$args7888_
      (apply make-struct-instance std/actor/proto#!protocol::t _$args7888_)))
  (define std/actor/proto#!protocol-id
    (make-struct-field-accessor std/actor/proto#!protocol::t '0))
  (define std/actor/proto#!protocol-super
    (make-struct-field-accessor std/actor/proto#!protocol::t '1))
  (define std/actor/proto#!protocol-types
    (make-struct-field-accessor std/actor/proto#!protocol::t '2))
  (define std/actor/proto#!protocol-id-set!
    (make-struct-field-mutator std/actor/proto#!protocol::t '0))
  (define std/actor/proto#!protocol-super-set!
    (make-struct-field-mutator std/actor/proto#!protocol::t '1))
  (define std/actor/proto#!protocol-types-set!
    (make-struct-field-mutator std/actor/proto#!protocol::t '2)))
