(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |std/srfi/101[1]#_g4509_|
    (##structure
     gx#syntax-quote::t
     'kons::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4510_|
    (##structure
     gx#syntax-quote::t
     'make-kons
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4511_|
    (##structure
     gx#syntax-quote::t
     'kons?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4512_|
    (##structure
     gx#syntax-quote::t
     'kons-size
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4513_|
    (##structure
     gx#syntax-quote::t
     'kons-tree
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4514_|
    (##structure
     gx#syntax-quote::t
     'kons-rest
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4515_|
    (##structure
     gx#syntax-quote::t
     'kons-size-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4516_|
    (##structure
     gx#syntax-quote::t
     'kons-tree-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4517_|
    (##structure
     gx#syntax-quote::t
     'kons-rest-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4518_|
    (##structure
     gx#syntax-quote::t
     'node::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4519_|
    (##structure
     gx#syntax-quote::t
     'make-node
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4520_|
    (##structure
     gx#syntax-quote::t
     'node?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4521_|
    (##structure
     gx#syntax-quote::t
     'node-val
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4522_|
    (##structure
     gx#syntax-quote::t
     'node-left
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4523_|
    (##structure
     gx#syntax-quote::t
     'node-right
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4524_|
    (##structure
     gx#syntax-quote::t
     'node-val-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4525_|
    (##structure
     gx#syntax-quote::t
     'node-left-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/srfi/101[1]#_g4526_|
    (##structure
     gx#syntax-quote::t
     'node-right-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |std/srfi/101[:0:]#assert|
      (lambda (_$stx391_)
        (let* ((_g395409_
                (lambda (_g396405_)
                  (gx#raise-syntax-error '#f '"Bad syntax" _g396405_)))
               (_g394452_
                (lambda (_g396413_)
                  (if (gx#stx-pair? _g396413_)
                      (let ((_e398416_ (gx#syntax-e _g396413_)))
                        (let ((_hd399420_
                               (let () (declare (not safe)) (##car _e398416_)))
                              (_tl400423_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _e398416_))))
                          (if (gx#stx-pair? _tl400423_)
                              (let ((_e401426_ (gx#syntax-e _tl400423_)))
                                (let ((_hd402430_
                                       (let ()
                                         (declare (not safe))
                                         (##car _e401426_)))
                                      (_tl403433_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _e401426_))))
                                  (if (gx#stx-null? _tl403433_)
                                      ((lambda (_L436_)
                                         (cons (gx#datum->syntax '#f 'unless)
                                               (cons _L436_
                                                     (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          '#f
                          'error)
                         (cons '"assertion failure"
                               (cons (cons (gx#datum->syntax '#f 'quote)
                                           (cons _L436_ '()))
                                     '())))
                   '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                       _hd402430_)
                                      (_g395409_ _g396413_))))
                              (_g395409_ _g396413_))))
                      (_g395409_ _g396413_)))))
          (_g394452_ _$stx391_))))
    (define |std/srfi/101[:0:]#kons|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/srfi/101[1]#_g4509_|
       'expander-identifiers:
       (cons '#f
             (cons |std/srfi/101[1]#_g4509_|
                   (cons |std/srfi/101[1]#_g4510_|
                         (cons |std/srfi/101[1]#_g4511_|
                               (cons (cons |std/srfi/101[1]#_g4512_|
                                           (cons |std/srfi/101[1]#_g4513_|
                                                 (cons |std/srfi/101[1]#_g4514_|
                                                       '())))
                                     (cons (cons |std/srfi/101[1]#_g4515_|
                                                 (cons |std/srfi/101[1]#_g4516_|
                                                       (cons |std/srfi/101[1]#_g4517_|
                                                             '())))
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'kons
        '#f
        '()
        '(size tree rest))))
    (define |std/srfi/101[:0:]#node|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/srfi/101[1]#_g4518_|
       'expander-identifiers:
       (cons '#f
             (cons |std/srfi/101[1]#_g4518_|
                   (cons |std/srfi/101[1]#_g4519_|
                         (cons |std/srfi/101[1]#_g4520_|
                               (cons (cons |std/srfi/101[1]#_g4521_|
                                           (cons |std/srfi/101[1]#_g4522_|
                                                 (cons |std/srfi/101[1]#_g4523_|
                                                       '())))
                                     (cons (cons |std/srfi/101[1]#_g4524_|
                                                 (cons |std/srfi/101[1]#_g4525_|
                                                       (cons |std/srfi/101[1]#_g4526_|
                                                             '())))
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'node
        '#f
        '()
        '(val left right))))
    (define |std/srfi/101[:0:]#ra:quote|
      (lambda (_$stx456_)
        (let* ((_g460475_
                (lambda (_g461471_)
                  (gx#raise-syntax-error '#f '"Bad syntax" _g461471_)))
               (_g459518_
                (lambda (_g461479_)
                  (if (gx#stx-pair? _g461479_)
                      (let ((_e464482_ (gx#syntax-e _g461479_)))
                        (let ((_hd465486_
                               (let () (declare (not safe)) (##car _e464482_)))
                              (_tl466489_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _e464482_))))
                          (if (gx#stx-pair? _tl466489_)
                              (let ((_e467492_ (gx#syntax-e _tl466489_)))
                                (let ((_hd468496_
                                       (let ()
                                         (declare (not safe))
                                         (##car _e467492_)))
                                      (_tl469499_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _e467492_))))
                                  (if (gx#stx-null? _tl469499_)
                                      ((lambda (_L502_ _L504_)
                                         (cons (gx#datum->syntax
                                                '#f
                                                'get-cached)
                                               (cons (cons (gx#datum->syntax
                                                            '#f
                                                            'quote)
                                                           (cons _L502_ '()))
                                                     '())))
                                       _hd468496_
                                       _hd465486_)
                                      (_g460475_ _g461479_))))
                              (_g460475_ _g461479_))))
                      (_g460475_ _g461479_)))))
          (_g459518_ _$stx456_))))))
