(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 _$args132291_
      (apply make-struct-instance
             std/actor/proto#rpc-io-error::t
             _$args132291_)))
  (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 _$args132288_
      (apply make-struct-instance
             std/actor/proto#remote-error::t
             _$args132288_)))
  (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 _$args132285_
      (apply make-struct-instance std/actor/proto#rpc-error::t _$args132285_)))
  (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 (_where132037_ _what132038_ . _irritants132039_)
      (raise (make-struct-instance
              std/actor/proto#rpc-io-error::t
              _what132038_
              _irritants132039_
              _where132037_))))
  (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 _$args132034_
      (apply make-struct-instance std/actor/proto#handle::t _$args132034_)))
  (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 _$args132031_
      (apply make-struct-instance std/actor/proto#remote::t _$args132031_)))
  (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 (_self132027_ _handler132028_ _id132029_)
      (if (##fx< '2 (##vector-length _self132027_))
          (begin
            (##vector-set! _self132027_ '1 _handler132028_)
            (##vector-set! _self132027_ '2 (std/misc/uuid#UUID _id132029_)))
          (error '"struct-instance-init!: too many arguments for struct"
                 _self132027_))))
  (bind-method!
   std/actor/proto#handle::t
   ':init!
   std/actor/proto#handle:::init!
   '#f)
  (define std/actor/proto#remote:::init!
    (lambda (_self131899_
             _handler131900_
             _id131901_
             _address131902_
             _proto131903_)
      (if (##fx< '4 (##vector-length _self131899_))
          (begin
            (##vector-set! _self131899_ '1 _handler131900_)
            (##vector-set! _self131899_ '2 (std/misc/uuid#UUID _id131901_))
            (##vector-set! _self131899_ '3 _address131902_)
            (##vector-set! _self131899_ '4 _proto131903_))
          (error '"struct-instance-init!: too many arguments for struct"
                 _self131899_))))
  (bind-method!
   std/actor/proto#remote::t
   ':init!
   std/actor/proto#remote:::init!
   '#f)
  (define std/actor/proto#remote=?
    (lambda (_a131700_ _b131701_)
      (let ((_a131702131716_ _a131700_) (_b131703131718_ _b131701_))
        (let* ((_E131705131722_
                (lambda ()
                  (error '"No clause matching"
                         _a131702131716_
                         _b131703131718_)))
               (_K131706131734_
                (lambda (_proto-a131725_
                         _address-a131726_
                         _uuid-a131727_
                         _proxy-a131728_
                         _proto-b131729_
                         _address-b131730_
                         _uuid-b131731_
                         _proxy-b131732_)
                  (if (eq? _proxy-a131728_ _proxy-b131732_)
                      (if (std/misc/uuid#uuid=? _uuid-a131727_ _uuid-b131731_)
                          (if (equal? _address-a131726_ _address-b131730_)
                              (eq? _proto-a131725_ _proto-b131729_)
                              '#f)
                          '#f)
                      '#f))))
          (if (##structure-direct-instance-of?
               _a131702131716_
               'std/actor/proto#remote::t)
              (let* ((_e131711131737_ (##vector-ref _a131702131716_ '1))
                     (_proxy-a131740_ _e131711131737_)
                     (_e131712131742_ (##vector-ref _a131702131716_ '2))
                     (_uuid-a131745_ _e131712131742_)
                     (_e131713131747_ (##vector-ref _a131702131716_ '3))
                     (_address-a131750_ _e131713131747_)
                     (_e131714131752_ (##vector-ref _a131702131716_ '4))
                     (_proto-a131755_ _e131714131752_))
                (if (##structure-direct-instance-of?
                     _b131703131718_
                     'std/actor/proto#remote::t)
                    (let* ((_e131707131757_ (##vector-ref _b131703131718_ '1))
                           (_proxy-b131760_ _e131707131757_)
                           (_e131708131762_ (##vector-ref _b131703131718_ '2))
                           (_uuid-b131765_ _e131708131762_)
                           (_e131709131767_ (##vector-ref _b131703131718_ '3))
                           (_address-b131770_ _e131709131767_)
                           (_e131710131772_ (##vector-ref _b131703131718_ '4))
                           (_proto-b131775_ _e131710131772_))
                      (_K131706131734_
                       _proto-a131755_
                       _address-a131750_
                       _uuid-a131745_
                       _proxy-a131740_
                       _proto-b131775_
                       _address-b131770_
                       _uuid-b131765_
                       _proxy-b131760_))
                    (_E131705131722_)))
              (_E131705131722_))))))
  (define std/actor/proto#remote-hash
    (lambda (_r131665_)
      (let* ((_r131666131674_ _r131665_)
             (_E131668131678_
              (lambda () (error '"No clause matching" _r131666131674_)))
             (_K131669131684_
              (lambda (_address131681_ _uuid131682_)
                (##fxxor (std/misc/uuid#uuid-hash _uuid131682_)
                         (equal?-hash _address131681_)))))
        (if (##structure-direct-instance-of?
             _r131666131674_
             'std/actor/proto#remote::t)
            (let* ((_e131670131687_ (##vector-ref _r131666131674_ '1))
                   (_e131671131690_ (##vector-ref _r131666131674_ '2))
                   (_uuid131693_ _e131671131690_)
                   (_e131672131695_ (##vector-ref _r131666131674_ '3))
                   (_address131698_ _e131672131695_))
              (_K131669131684_ _address131698_ _uuid131693_))
            (_E131668131678_)))))
  (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 _$args131662_
      (apply make-struct-instance std/actor/proto#!rpc::t _$args131662_)))
  (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 _$args131659_
      (apply make-struct-instance std/actor/proto#!call::t _$args131659_)))
  (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 _$args131656_
      (apply make-struct-instance std/actor/proto#!value::t _$args131656_)))
  (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 _$args131653_
      (apply make-struct-instance std/actor/proto#!error::t _$args131653_)))
  (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 _$args131650_
      (apply make-struct-instance std/actor/proto#!event::t _$args131650_)))
  (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 _$args131647_
      (apply make-struct-instance std/actor/proto#!stream::t _$args131647_)))
  (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 _$args131644_
      (apply make-struct-instance std/actor/proto#!yield::t _$args131644_)))
  (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 _$args131641_
      (apply make-struct-instance std/actor/proto#!end::t _$args131641_)))
  (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 _$args131638_
      (apply make-struct-instance std/actor/proto#!continue::t _$args131638_)))
  (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 _$args131635_
      (apply make-struct-instance std/actor/proto#!close::t _$args131635_)))
  (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 _$args131632_
      (apply make-struct-instance std/actor/proto#!abort::t _$args131632_)))
  (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 _$args131629_
      (apply make-struct-instance std/actor/proto#!sync::t _$args131629_)))
  (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 _$args131626_
      (apply make-struct-instance std/actor/proto#!token::t _$args131626_)))
  (define std/actor/proto#!!call-recv
    (lambda (_k131485_ _dest131486_)
      (let _loop131487131489_ ()
        (let ((_next131493_ (thread-mailbox-next)))
          ((lambda (_$message131496_)
             (let* ((_$message131498131508_ _$message131496_)
                    (_else131500131516_ (lambda () (_loop131487131489_)))
                    (_K131502131603_
                     (lambda (_$options131519_
                              _$dest131521_
                              _$source131523_
                              _$value131525_)
                       (let* ((_$value131542131554_ _$value131525_)
                              (_else131545131562_
                               (lambda () (_loop131487131489_))))
                         (let ((_K131550131588_
                                (lambda (_val131586_)
                                  (thread-mailbox-extract-and-rewind)
                                  _val131586_))
                               (_K131547131568_
                                (lambda (_obj131566_)
                                  (thread-mailbox-extract-and-rewind)
                                  (if (string? _obj131566_)
                                      (raise (make-struct-instance
                                              std/actor/message#actor-error::t
                                              '!!call
                                              _obj131566_))
                                      (raise _obj131566_)))))
                           (let ((_try-match131544131583_
                                  (lambda ()
                                    (if (##structure-direct-instance-of?
                                         _$value131542131554_
                                         'std/actor/proto#!error::t)
                                        (let* ((_e131548131571_
                                                (##vector-ref
                                                 _$value131542131554_
                                                 '1))
                                               (_e131549131576_
                                                (##vector-ref
                                                 _$value131542131554_
                                                 '2)))
                                          (if ((lambda (_g131578131580_)
                                                 (eq? _g131578131580_
                                                      _k131485_))
                                               _e131549131576_)
                                              (let ((_obj131574_
                                                     _e131548131571_))
                                                (_K131547131568_ _obj131574_))
                                              (_loop131487131489_)))
                                        (_loop131487131489_)))))
                             (if (##structure-direct-instance-of?
                                  _$value131542131554_
                                  'std/actor/proto#!value::t)
                                 (let* ((_e131551131591_
                                         (##vector-ref
                                          _$value131542131554_
                                          '1))
                                        (_e131552131596_
                                         (##vector-ref
                                          _$value131542131554_
                                          '2)))
                                   (if ((lambda (_g131598131600_)
                                          (eq? _g131598131600_ _k131485_))
                                        _e131552131596_)
                                       (let ((_val131594_ _e131551131591_))
                                         (_K131550131588_ _val131594_))
                                       (_loop131487131489_)))
                                 (_try-match131544131583_))))))))
               (if (##structure-direct-instance-of?
                    _$message131498131508_
                    'std/actor/message#message::t)
                   (let* ((_e131503131606_
                           (##vector-ref _$message131498131508_ '1))
                          (_$value131609_ _e131503131606_)
                          (_e131504131611_
                           (##vector-ref _$message131498131508_ '2))
                          (_$source131614_ _e131504131611_)
                          (_e131505131616_
                           (##vector-ref _$message131498131508_ '3))
                          (_$dest131619_ _e131505131616_)
                          (_e131506131621_
                           (##vector-ref _$message131498131508_ '4))
                          (_$options131624_ _e131506131621_))
                     (_K131502131603_
                      _$options131624_
                      _$dest131619_
                      _$source131614_
                      _$value131609_))
                   (_loop131487131489_))))
           _next131493_)))))
  (define std/actor/proto#!!stream-pipe
    (lambda (_start131255_)
      (letrec ((_stream-start131257_
                (lambda (_compl131472_ _outp131473_)
                  (let ((_k131483_
                         (with-exception-catcher
                          (lambda (_g131474131476_)
                            (if '#t
                                (let ((_e131479_ _g131474131476_))
                                  (std/misc/completion#completion-error!
                                   _compl131472_
                                   _e131479_)
                                  (raise _e131479_))
                                (raise _g131474131476_)))
                          (lambda () (_start131255_)))))
                    (std/misc/completion#completion-post!
                     _compl131472_
                     '#!void)
                    (_stream-handler131258_ _k131483_ _outp131473_))))
               (_stream-handler131258_
                (lambda (_k131272_ _outp131273_)
                  (let _lp131275_ ((_close?131277_ '#f))
                    (let _loop131278131280_ ()
                      (let ((_next131284_ (thread-mailbox-next)))
                        ((lambda (_$message131287_)
                           (let* ((_$message131289131299_ _$message131287_)
                                  (_else131291131307_
                                   (lambda () (_loop131278131280_)))
                                  (_K131293131449_
                                   (lambda (_$options131310_
                                            _$dest131312_
                                            _$source131314_
                                            _$value131316_)
                                     (let* ((_$value131337131358_
                                             _$value131316_)
                                            (_else131343131366_
                                             (lambda () (_loop131278131280_))))
                                       (let ((_K131354131434_
                                              (lambda (_val131432_)
                                                (thread-mailbox-extract-and-rewind)
                                                (write _val131432_
                                                       _outp131273_)
                                                (_lp131275_ _close?131277_)))
                                             (_K131352131419_
                                              (lambda ()
                                                (thread-mailbox-extract-and-rewind)
                                                (if _close?131277_
                                                    (std/actor/message#send-message__0
                                                     _$source131314_
                                                     (##structure
                                                      std/actor/proto#!close::t
                                                      _k131272_))
                                                    (std/actor/message#send-message__0
                                                     _$source131314_
                                                     (##structure
                                                      std/actor/proto#!continue::t
                                                      _k131272_)))
                                                (_lp131275_ _close?131277_)))
                                             (_K131350131404_
                                              (lambda ()
                                                (thread-mailbox-extract-and-rewind)
                                                (close-port _outp131273_)))
                                             (_K131347131386_
                                              (lambda (_k131381_ _obj131382_)
                                                (thread-mailbox-extract-and-rewind)
                                                (let ((_err131384_
                                                       (if (string? _obj131382_)
                                                           (make-struct-instance
                                                            std/actor/message#actor-error::t
                                                            '!!stream
                                                            _obj131382_)
                                                           _obj131382_)))
                                                  (write _err131384_
                                                         _outp131273_)
                                                  (close-port _outp131273_))))
                                             (_K131345131371_
                                              (lambda ()
                                                (thread-mailbox-extract-and-rewind)
                                                (_lp131275_ '#t))))
                                         (let* ((_try-match131342131377_
                                                 (lambda ()
                                                   (if (##structure-direct-instance-of?
                                                        _$value131337131358_
                                                        'std/actor/proto#!close::t)
                                                       (let ((_e131346131374_
                                                              (##vector-ref
                                                               _$value131337131358_
                                                               '1)))
                                                         (_K131345131371_))
                                                       (_loop131278131280_))))
                                                (_try-match131341131399_
                                                 (lambda ()
                                                   (if (##structure-direct-instance-of?
                                                        _$value131337131358_
                                                        'std/actor/proto#!error::t)
                                                       (let* ((_e131348131389_
                                                               (##vector-ref
                                                                _$value131337131358_
                                                                '1))
                                                              (_e131349131394_
                                                               (##vector-ref
                                                                _$value131337131358_
                                                                '2)))
                                                         (let ((_obj131392_
                                                                _e131348131389_)
                                                               (_k131397_
                                                                _e131349131394_))
                                                           (_K131347131386_
                                                            _k131397_
                                                            _obj131392_)))
                                                       (_try-match131342131377_))))
                                                (_try-match131340131414_
                                                 (lambda ()
                                                   (if (##structure-direct-instance-of?
                                                        _$value131337131358_
                                                        'std/actor/proto#!end::t)
                                                       (let ((_e131351131407_
                                                              (##vector-ref
                                                               _$value131337131358_
                                                               '1)))
                                                         (if ((lambda (_g131409131411_)
                                                                (eq? _g131409131411_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _k131272_))
                      _e131351131407_)
                     (_K131350131404_)
                     (_loop131278131280_)))
               (_try-match131341131399_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_try-match131339131429_
                                                 (lambda ()
                                                   (if (##structure-direct-instance-of?
                                                        _$value131337131358_
                                                        'std/actor/proto#!sync::t)
                                                       (let ((_e131353131422_
                                                              (##vector-ref
                                                               _$value131337131358_
                                                               '1)))
                                                         (if ((lambda (_g131424131426_)
                                                                (eq? _g131424131426_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _k131272_))
                      _e131353131422_)
                     (_K131352131419_)
                     (_loop131278131280_)))
               (_try-match131340131414_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           (if (##structure-direct-instance-of?
                                                _$value131337131358_
                                                'std/actor/proto#!yield::t)
                                               (let* ((_e131355131437_
                                                       (##vector-ref
                                                        _$value131337131358_
                                                        '1))
                                                      (_e131356131442_
                                                       (##vector-ref
                                                        _$value131337131358_
                                                        '2)))
                                                 (if ((lambda (_g131444131446_)
                                                        (eq? _g131444131446_
                                                             _k131272_))
                                                      _e131356131442_)
                                                     (let ((_val131440_
                                                            _e131355131437_))
                                                       (_K131354131434_
                                                        _val131440_))
                                                     (_loop131278131280_)))
                                               (_try-match131339131429_))))))))
                             (if (##structure-direct-instance-of?
                                  _$message131289131299_
                                  'std/actor/message#message::t)
                                 (let* ((_e131294131452_
                                         (##vector-ref
                                          _$message131289131299_
                                          '1))
                                        (_$value131455_ _e131294131452_)
                                        (_e131295131457_
                                         (##vector-ref
                                          _$message131289131299_
                                          '2))
                                        (_$source131460_ _e131295131457_)
                                        (_e131296131462_
                                         (##vector-ref
                                          _$message131289131299_
                                          '3))
                                        (_$dest131465_ _e131296131462_)
                                        (_e131297131467_
                                         (##vector-ref
                                          _$message131289131299_
                                          '4))
                                        (_$options131470_ _e131297131467_))
                                   (_K131293131449_
                                    _$options131470_
                                    _$dest131465_
                                    _$source131460_
                                    _$value131455_))
                                 (_loop131278131280_))))
                         _next131284_)))))))
        (let* ((_compl131260_
                (let ((__obj133427
                       (make-object std/misc/completion#completion::t '5)))
                  (std/misc/completion#completion:::init! __obj133427)
                  __obj133427))
               (_g133428_
                (open-vector-pipe
                 (cons 'permanent-close:
                       (cons '#t (cons 'direction: (cons 'input '()))))
                 (cons 'permanent-close:
                       (cons '#t (cons 'direction: (cons 'output '())))))))
          (begin
            (let ((_g133429_
                   (if (##values? _g133428_) (##vector-length _g133428_) 1)))
              (if (not (##fx= _g133429_ 2))
                  (error "Context expects 2 values" _g133429_)))
            (let ((_inp131262_ (##vector-ref _g133428_ 0))
                  (_outp131263_ (##vector-ref _g133428_ 1)))
              (let* ((_handler131265_
                      (gerbil/gambit/threads#spawn/name
                       'stream-pipe
                       _stream-start131257_
                       _compl131260_
                       _outp131263_))
                     (_close131268_
                      (lambda ()
                        (std/actor/message#send-message__0
                         _handler131265_
                         (##structure std/actor/proto#!close::t '#!void)))))
                (std/misc/completion#completion-wait! _compl131260_)
                (make-will _inp131262_ (lambda (_g133430_) (_close131268_)))
                (values _inp131262_ _close131268_))))))))
  (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 _$args131252_
      (apply make-struct-instance std/actor/proto#!protocol::t _$args131252_)))
  (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)))
