(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |std/actor/rpc/connection[1]#_g8242_|
    (##structure
     gx#syntax-quote::t
     'continuation-table::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8243_|
    (##structure
     gx#syntax-quote::t
     'make-continuation-table
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8244_|
    (##structure
     gx#syntax-quote::t
     'continuation-table?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8245_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-mx
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8246_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-continuations
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8247_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-stream-continuations
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8248_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-stream-actors
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8249_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-timeouts
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8250_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-continuation-timeouts
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8251_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-mx-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8252_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-continuations-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8253_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-stream-continuations-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8254_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-stream-actors-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8255_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-timeouts-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/actor/rpc/connection[1]#_g8256_|
    (##structure
     gx#syntax-quote::t
     'continuation-table-continuation-timeouts-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |std/actor/rpc/connection[:0:]#continuation-table|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/actor/rpc/connection[1]#_g8242_|
       'expander-identifiers:
       (cons '#f
             (cons |std/actor/rpc/connection[1]#_g8242_|
                   (cons |std/actor/rpc/connection[1]#_g8243_|
                         (cons |std/actor/rpc/connection[1]#_g8244_|
                               (cons (cons |std/actor/rpc/connection[1]#_g8245_|
                                           (cons |std/actor/rpc/connection[1]#_g8246_|
                                                 (cons |std/actor/rpc/connection[1]#_g8247_|
                                                       (cons |std/actor/rpc/connection[1]#_g8248_|
                                                             (cons |std/actor/rpc/connection[1]#_g8249_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons |std/actor/rpc/connection[1]#_g8250_|
                                 '()))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (cons (cons |std/actor/rpc/connection[1]#_g8251_|
                                                 (cons |std/actor/rpc/connection[1]#_g8252_|
                                                       (cons |std/actor/rpc/connection[1]#_g8253_|
                                                             (cons |std/actor/rpc/connection[1]#_g8254_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons |std/actor/rpc/connection[1]#_g8255_|
                                 (cons |std/actor/rpc/connection[1]#_g8256_|
                                       '()))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'continuation-table
        ':init!
        '((final: . #t))
        '(mx continuations
             stream-continuations
             stream-actors
             timeouts
             continuation-timeouts))))
    (define |std/actor/rpc/connection[:0:]#with-continuation-table|
      (lambda (_$stx439_)
        (let* ((_g443467_
                (lambda (_g444463_)
                  (gx#raise-syntax-error '#f '"Bad syntax" _g444463_)))
               (_g442554_
                (lambda (_g444471_)
                  (if (gx#stx-pair? _g444471_)
                      (let ((_e447474_ (gx#syntax-e _g444471_)))
                        (let ((_hd448478_
                               (let () (declare (not safe)) (##car _e447474_)))
                              (_tl449481_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _e447474_))))
                          (if (gx#stx-pair? _tl449481_)
                              (let ((_e450484_ (gx#syntax-e _tl449481_)))
                                (let ((_hd451488_
                                       (let ()
                                         (declare (not safe))
                                         (##car _e450484_)))
                                      (_tl452491_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _e450484_))))
                                  (if (gx#stx-pair/null? _tl452491_)
                                      (let ((_g8257_ (gx#syntax-split-splice
                                                      _tl452491_
                                                      '0)))
                                        (begin
                                          (let ((_g8258_ (let ()
                                                           (declare (not safe))
                                                           (if (##values?
                                                                _g8257_)
                                                               (##vector-length
                                                                _g8257_)
                                                               1))))
                                            (if (not (let ()
                                                       (declare (not safe))
                                                       (##fx= _g8258_ 2)))
                                                (error "Context expects 2 values"
                                                       _g8258_)))
                                          (let ((_target453494_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##vector-ref _g8257_ 0)))
                                                (_tl455497_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##vector-ref _g8257_ 1))))
                                            (if (gx#stx-null? _tl455497_)
                                                (letrec ((_loop456500_
                                                          (lambda (_hd454504_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           _body460507_)
                    (if (gx#stx-pair? _hd454504_)
                        (let ((_e457510_ (gx#syntax-e _hd454504_)))
                          (let ((_lp-hd458514_
                                 (let ()
                                   (declare (not safe))
                                   (##car _e457510_)))
                                (_lp-tl459517_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _e457510_))))
                            (_loop456500_
                             _lp-tl459517_
                             (cons _lp-hd458514_ _body460507_))))
                        (let ((_body461520_ (reverse _body460507_)))
                          ((lambda (_L524_ _L526_)
                             (cons (gx#datum->syntax '#f 'let)
                                   (cons (cons (gx#datum->syntax '#f 'mx)
                                               (cons (cons (gx#datum->syntax
                                                            '#f
                                                            '&continuation-table-mx)
                                                           (cons _L526_ '()))
                                                     '()))
                                         (cons (cons (gx#datum->syntax
                                                      '#f
                                                      'mutex-lock!)
                                                     (cons (gx#datum->syntax
                                                            '#f
                                                            'mx)
                                                           '()))
                                               (cons (cons (gx#datum->syntax
                                                            '#f
                                                            'let)
                                                           (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                '#f
                                'res)
                               (cons (cons (gx#datum->syntax '#f 'begin)
                                           (foldr1 (lambda (_g545548_
                                                            _g546551_)
                                                     (cons _g545548_
                                                           _g546551_))
                                                   '()
                                                   _L524_))
                                     '()))
                         (cons (cons (gx#datum->syntax '#f 'mutex-unlock!)
                                     (cons (gx#datum->syntax '#f 'mx) '()))
                               (cons (gx#datum->syntax '#f 'res) '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     '())))))
                           _body461520_
                           _hd451488_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_loop456500_
                                                   _target453494_
                                                   '()))
                                                (_g443467_ _g444471_)))))
                                      (_g443467_ _g444471_))))
                              (_g443467_ _g444471_))))
                      (_g443467_ _g444471_)))))
          (_g442554_ _$stx439_))))
    (define |std/actor/rpc/connection[:0:]#continuation-table-do|
      (lambda (_$stx559_)
        (let* ((_g563587_
                (lambda (_g564583_)
                  (gx#raise-syntax-error '#f '"Bad syntax" _g564583_)))
               (_g562672_
                (lambda (_g564591_)
                  (if (gx#stx-pair? _g564591_)
                      (let ((_e567594_ (gx#syntax-e _g564591_)))
                        (let ((_hd568598_
                               (let () (declare (not safe)) (##car _e567594_)))
                              (_tl569601_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _e567594_))))
                          (if (gx#stx-pair? _tl569601_)
                              (let ((_e570604_ (gx#syntax-e _tl569601_)))
                                (let ((_hd571608_
                                       (let ()
                                         (declare (not safe))
                                         (##car _e570604_)))
                                      (_tl572611_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _e570604_))))
                                  (if (gx#stx-pair/null? _tl572611_)
                                      (let ((_g8259_ (gx#syntax-split-splice
                                                      _tl572611_
                                                      '0)))
                                        (begin
                                          (let ((_g8260_ (let ()
                                                           (declare (not safe))
                                                           (if (##values?
                                                                _g8259_)
                                                               (##vector-length
                                                                _g8259_)
                                                               1))))
                                            (if (not (let ()
                                                       (declare (not safe))
                                                       (##fx= _g8260_ 2)))
                                                (error "Context expects 2 values"
                                                       _g8260_)))
                                          (let ((_target573614_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##vector-ref _g8259_ 0)))
                                                (_tl575617_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##vector-ref _g8259_ 1))))
                                            (if (gx#stx-null? _tl575617_)
                                                (letrec ((_loop576620_
                                                          (lambda (_hd574624_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           _body580627_)
                    (if (gx#stx-pair? _hd574624_)
                        (let ((_e577630_ (gx#syntax-e _hd574624_)))
                          (let ((_lp-hd578634_
                                 (let ()
                                   (declare (not safe))
                                   (##car _e577630_)))
                                (_lp-tl579637_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _e577630_))))
                            (_loop576620_
                             _lp-tl579637_
                             (cons _lp-hd578634_ _body580627_))))
                        (let ((_body581640_ (reverse _body580627_)))
                          ((lambda (_L644_ _L646_)
                             (cons (gx#datum->syntax '#f 'let)
                                   (cons (cons (gx#datum->syntax '#f 'mx)
                                               (cons (cons (gx#datum->syntax
                                                            '#f
                                                            '&continuation-table-mx)
                                                           (cons _L646_ '()))
                                                     '()))
                                         (cons (cons (gx#datum->syntax
                                                      '#f
                                                      'mutex-lock!)
                                                     (cons (gx#datum->syntax
                                                            '#f
                                                            'mx)
                                                           '()))
                                               (foldr1 (lambda (_g663666_
                                                                _g664669_)
                                                         (cons _g663666_
                                                               _g664669_))
                                                       (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '#f
                            'mutex-unlock!)
                           (cons (gx#datum->syntax '#f 'mx) '()))
                     '())
               _L644_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                           _body581640_
                           _hd571608_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_loop576620_
                                                   _target573614_
                                                   '()))
                                                (_g563587_ _g564591_)))))
                                      (_g563587_ _g564591_))))
                              (_g563587_ _g564591_))))
                      (_g563587_ _g564591_)))))
          (_g562672_ _$stx559_))))))
