(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |std/misc/rbtree[1]#_g7212_|
    (##structure
     gx#syntax-quote::t
     'rbtree::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7213_|
    (##structure
     gx#syntax-quote::t
     'make-rbtree
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7214_|
    (##structure
     gx#syntax-quote::t
     'rbtree?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7215_|
    (##structure
     gx#syntax-quote::t
     'rbtree-root
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7216_|
    (##structure
     gx#syntax-quote::t
     'rbtree-cmp
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7217_|
    (##structure
     gx#syntax-quote::t
     'rbtree-root-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7218_|
    (##structure
     gx#syntax-quote::t
     'rbtree-cmp-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7219_|
    (##structure
     gx#syntax-quote::t
     'Empty::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7220_|
    (##structure
     gx#syntax-quote::t
     'make-Empty
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7221_|
    (##structure
     gx#syntax-quote::t
     'Empty?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7222_|
    (##structure
     gx#syntax-quote::t
     'Tree::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7223_|
    (##structure
     gx#syntax-quote::t
     'make-Tree
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7224_|
    (##structure
     gx#syntax-quote::t
     'Tree?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7225_|
    (##structure
     gx#syntax-quote::t
     'Tree-color
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7226_|
    (##structure
     gx#syntax-quote::t
     'Tree-left
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7227_|
    (##structure
     gx#syntax-quote::t
     'Tree-right
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7228_|
    (##structure
     gx#syntax-quote::t
     'Tree-key
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7229_|
    (##structure
     gx#syntax-quote::t
     'Tree-value
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7230_|
    (##structure
     gx#syntax-quote::t
     'Tree-color-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7231_|
    (##structure
     gx#syntax-quote::t
     'Tree-left-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7232_|
    (##structure
     gx#syntax-quote::t
     'Tree-right-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7233_|
    (##structure
     gx#syntax-quote::t
     'Tree-key-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7234_|
    (##structure
     gx#syntax-quote::t
     'Tree-value-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7235_|
    (##structure
     gx#syntax-quote::t
     'Top::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7236_|
    (##structure
     gx#syntax-quote::t
     'make-Top
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7237_|
    (##structure
     gx#syntax-quote::t
     'Top?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7238_|
    (##structure
     gx#syntax-quote::t
     'Left::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7239_|
    (##structure
     gx#syntax-quote::t
     'make-Left
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7240_|
    (##structure
     gx#syntax-quote::t
     'Left?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7241_|
    (##structure
     gx#syntax-quote::t
     'Left-color
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7242_|
    (##structure
     gx#syntax-quote::t
     'Left-key
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7243_|
    (##structure
     gx#syntax-quote::t
     'Left-value
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7244_|
    (##structure
     gx#syntax-quote::t
     'Left-tree
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7245_|
    (##structure
     gx#syntax-quote::t
     'Left-zipper
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7246_|
    (##structure
     gx#syntax-quote::t
     'Left-color-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7247_|
    (##structure
     gx#syntax-quote::t
     'Left-key-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7248_|
    (##structure
     gx#syntax-quote::t
     'Left-value-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7249_|
    (##structure
     gx#syntax-quote::t
     'Left-tree-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7250_|
    (##structure
     gx#syntax-quote::t
     'Left-zipper-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7251_|
    (##structure
     gx#syntax-quote::t
     'Right::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7252_|
    (##structure
     gx#syntax-quote::t
     'make-Right
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7253_|
    (##structure
     gx#syntax-quote::t
     'Right?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7254_|
    (##structure
     gx#syntax-quote::t
     'Right-color
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7255_|
    (##structure
     gx#syntax-quote::t
     'Right-key
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7256_|
    (##structure
     gx#syntax-quote::t
     'Right-value
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7257_|
    (##structure
     gx#syntax-quote::t
     'Right-tree
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7258_|
    (##structure
     gx#syntax-quote::t
     'Right-zipper
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7259_|
    (##structure
     gx#syntax-quote::t
     'Right-color-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7260_|
    (##structure
     gx#syntax-quote::t
     'Right-key-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7261_|
    (##structure
     gx#syntax-quote::t
     'Right-value-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7262_|
    (##structure
     gx#syntax-quote::t
     'Right-tree-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/misc/rbtree[1]#_g7263_|
    (##structure
     gx#syntax-quote::t
     'Right-zipper-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |std/misc/rbtree[:0:]#rbtree|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/misc/rbtree[1]#_g7212_|
       'expander-identifiers:
       (cons '#f
             (cons |std/misc/rbtree[1]#_g7212_|
                   (cons |std/misc/rbtree[1]#_g7213_|
                         (cons |std/misc/rbtree[1]#_g7214_|
                               (cons (cons |std/misc/rbtree[1]#_g7215_|
                                           (cons |std/misc/rbtree[1]#_g7216_|
                                                 '()))
                                     (cons (cons |std/misc/rbtree[1]#_g7217_|
                                                 (cons |std/misc/rbtree[1]#_g7218_|
                                                       '()))
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'rbtree
        ':init!
        '((final: . #t))
        '(root cmp))))
    (define |std/misc/rbtree[:0:]#Empty|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/misc/rbtree[1]#_g7219_|
       'expander-identifiers:
       (cons '#f
             (cons |std/misc/rbtree[1]#_g7219_|
                   (cons |std/misc/rbtree[1]#_g7220_|
                         (cons |std/misc/rbtree[1]#_g7221_|
                               (cons '() (cons '() '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'Empty
        '#f
        '((final: . #t))
        '())))
    (define |std/misc/rbtree[:0:]#Tree|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/misc/rbtree[1]#_g7222_|
       'expander-identifiers:
       (cons '#f
             (cons |std/misc/rbtree[1]#_g7222_|
                   (cons |std/misc/rbtree[1]#_g7223_|
                         (cons |std/misc/rbtree[1]#_g7224_|
                               (cons (cons |std/misc/rbtree[1]#_g7225_|
                                           (cons |std/misc/rbtree[1]#_g7226_|
                                                 (cons |std/misc/rbtree[1]#_g7227_|
                                                       (cons |std/misc/rbtree[1]#_g7228_|
                                                             (cons |std/misc/rbtree[1]#_g7229_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (cons (cons |std/misc/rbtree[1]#_g7230_|
                                                 (cons |std/misc/rbtree[1]#_g7231_|
                                                       (cons |std/misc/rbtree[1]#_g7232_|
                                                             (cons |std/misc/rbtree[1]#_g7233_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons |std/misc/rbtree[1]#_g7234_| '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'Tree
        '#f
        '((final: . #t))
        '(color left right key value))))
    (define |std/misc/rbtree[:0:]#Top|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/misc/rbtree[1]#_g7235_|
       'expander-identifiers:
       (cons '#f
             (cons |std/misc/rbtree[1]#_g7235_|
                   (cons |std/misc/rbtree[1]#_g7236_|
                         (cons |std/misc/rbtree[1]#_g7237_|
                               (cons '() (cons '() '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'Top
        '#f
        '((final: . #t))
        '())))
    (define |std/misc/rbtree[:0:]#Left|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/misc/rbtree[1]#_g7238_|
       'expander-identifiers:
       (cons '#f
             (cons |std/misc/rbtree[1]#_g7238_|
                   (cons |std/misc/rbtree[1]#_g7239_|
                         (cons |std/misc/rbtree[1]#_g7240_|
                               (cons (cons |std/misc/rbtree[1]#_g7241_|
                                           (cons |std/misc/rbtree[1]#_g7242_|
                                                 (cons |std/misc/rbtree[1]#_g7243_|
                                                       (cons |std/misc/rbtree[1]#_g7244_|
                                                             (cons |std/misc/rbtree[1]#_g7245_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (cons (cons |std/misc/rbtree[1]#_g7246_|
                                                 (cons |std/misc/rbtree[1]#_g7247_|
                                                       (cons |std/misc/rbtree[1]#_g7248_|
                                                             (cons |std/misc/rbtree[1]#_g7249_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons |std/misc/rbtree[1]#_g7250_| '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'Left
        '#f
        '((final: . #t))
        '(color key value tree zipper))))
    (define |std/misc/rbtree[:0:]#Right|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/misc/rbtree[1]#_g7251_|
       'expander-identifiers:
       (cons '#f
             (cons |std/misc/rbtree[1]#_g7251_|
                   (cons |std/misc/rbtree[1]#_g7252_|
                         (cons |std/misc/rbtree[1]#_g7253_|
                               (cons (cons |std/misc/rbtree[1]#_g7254_|
                                           (cons |std/misc/rbtree[1]#_g7255_|
                                                 (cons |std/misc/rbtree[1]#_g7256_|
                                                       (cons |std/misc/rbtree[1]#_g7257_|
                                                             (cons |std/misc/rbtree[1]#_g7258_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (cons (cons |std/misc/rbtree[1]#_g7259_|
                                                 (cons |std/misc/rbtree[1]#_g7260_|
                                                       (cons |std/misc/rbtree[1]#_g7261_|
                                                             (cons |std/misc/rbtree[1]#_g7262_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons |std/misc/rbtree[1]#_g7263_| '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'Right
        '#f
        '((final: . #t))
        '(color key value tree zipper))))
    (define |std/misc/rbtree[:0:]#dispatch-on-key|
      (lambda (_$stx404_)
        (let* ((_g408434_
                (lambda (_g409430_)
                  (gx#raise-syntax-error '#f '"Bad syntax" _g409430_)))
               (_g407519_
                (lambda (_g409438_)
                  (if (gx#stx-pair? _g409438_)
                      (let ((_e414441_ (gx#syntax-e _g409438_)))
                        (let ((_hd415445_
                               (let () (declare (not safe)) (##car _e414441_)))
                              (_tl416448_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _e414441_))))
                          (if (gx#stx-pair? _tl416448_)
                              (let ((_e417451_ (gx#syntax-e _tl416448_)))
                                (let ((_hd418455_
                                       (let ()
                                         (declare (not safe))
                                         (##car _e417451_)))
                                      (_tl419458_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _e417451_))))
                                  (if (gx#stx-pair? _tl419458_)
                                      (let ((_e420461_
                                             (gx#syntax-e _tl419458_)))
                                        (let ((_hd421465_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _e420461_)))
                                              (_tl422468_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _e420461_))))
                                          (if (gx#stx-pair? _tl422468_)
                                              (let ((_e423471_
                                                     (gx#syntax-e _tl422468_)))
                                                (let ((_hd424475_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _e423471_)))
                                                      (_tl425478_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _e423471_))))
                                                  (if (gx#stx-pair? _tl425478_)
                                                      (let ((_e426481_
                                                             (gx#syntax-e
                                                              _tl425478_)))
                                                        (let ((_hd427485_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (##car _e426481_)))
                      (_tl428488_
                       (let () (declare (not safe)) (##cdr _e426481_))))
                  (if (gx#stx-null? _tl428488_)
                      ((lambda (_L491_ _L493_ _L494_ _L495_)
                         (cons (gx#datum->syntax '#f 'let)
                               (cons (cons (gx#datum->syntax '#f 'r)
                                           (cons _L495_ '()))
                                     (cons (cons (gx#datum->syntax '#f 'cond)
                                                 (cons (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '#f
                            'negative?)
                           (cons (gx#datum->syntax '#f 'r) '()))
                     (cons _L494_ '()))
               (cons (cons (cons (gx#datum->syntax '#f 'zero?)
                                 (cons (gx#datum->syntax '#f 'r) '()))
                           (cons _L493_ '()))
                     (cons (cons (gx#datum->syntax '#f 'else)
                                 (cons _L491_ '()))
                           '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))
                       _hd427485_
                       _hd424475_
                       _hd421465_
                       _hd418455_)
                      (_g408434_ _g409438_))))
              (_g408434_ _g409438_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_g408434_ _g409438_))))
                                      (_g408434_ _g409438_))))
                              (_g408434_ _g409438_))))
                      (_g408434_ _g409438_)))))
          (_g407519_ _$stx404_))))))
