(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |std/make[1]#_g7440_|
    (##structure
     gx#syntax-quote::t
     'settings::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7441_|
    (##structure
     gx#syntax-quote::t
     'make-settings
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7442_|
    (##structure
     gx#syntax-quote::t
     'settings?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7443_|
    (##structure
     gx#syntax-quote::t
     'settings-srcdir
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7444_|
    (##structure
     gx#syntax-quote::t
     'settings-libdir
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7445_|
    (##structure
     gx#syntax-quote::t
     'settings-bindir
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7446_|
    (##structure
     gx#syntax-quote::t
     'settings-prefix
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7447_|
    (##structure
     gx#syntax-quote::t
     'settings-force
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7448_|
    (##structure
     gx#syntax-quote::t
     'settings-optimize
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7449_|
    (##structure
     gx#syntax-quote::t
     'settings-debug
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7450_|
    (##structure
     gx#syntax-quote::t
     'settings-static
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7451_|
    (##structure
     gx#syntax-quote::t
     'settings-static-debug
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7452_|
    (##structure
     gx#syntax-quote::t
     'settings-verbose
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7453_|
    (##structure
     gx#syntax-quote::t
     'settings-build-deps
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7454_|
    (##structure
     gx#syntax-quote::t
     'settings-libdir-prefix
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7455_|
    (##structure
     gx#syntax-quote::t
     'settings-parallelize
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7456_|
    (##structure
     gx#syntax-quote::t
     'settings-srcdir-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7457_|
    (##structure
     gx#syntax-quote::t
     'settings-libdir-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7458_|
    (##structure
     gx#syntax-quote::t
     'settings-bindir-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7459_|
    (##structure
     gx#syntax-quote::t
     'settings-prefix-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7460_|
    (##structure
     gx#syntax-quote::t
     'settings-force-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7461_|
    (##structure
     gx#syntax-quote::t
     'settings-optimize-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7462_|
    (##structure
     gx#syntax-quote::t
     'settings-debug-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7463_|
    (##structure
     gx#syntax-quote::t
     'settings-static-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7464_|
    (##structure
     gx#syntax-quote::t
     'settings-static-debug-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7465_|
    (##structure
     gx#syntax-quote::t
     'settings-verbose-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7466_|
    (##structure
     gx#syntax-quote::t
     'settings-build-deps-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7467_|
    (##structure
     gx#syntax-quote::t
     'settings-libdir-prefix-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/make[1]#_g7468_|
    (##structure
     gx#syntax-quote::t
     'settings-parallelize-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |std/make[:0:]#settings|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/make[1]#_g7440_|
       'expander-identifiers:
       (cons '#f
             (cons |std/make[1]#_g7440_|
                   (cons |std/make[1]#_g7441_|
                         (cons |std/make[1]#_g7442_|
                               (cons (cons |std/make[1]#_g7443_|
                                           (cons |std/make[1]#_g7444_|
                                                 (cons |std/make[1]#_g7445_|
                                                       (cons |std/make[1]#_g7446_|
                                                             (cons |std/make[1]#_g7447_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons |std/make[1]#_g7448_|
                                 (cons |std/make[1]#_g7449_|
                                       (cons |std/make[1]#_g7450_|
                                             (cons |std/make[1]#_g7451_|
                                                   (cons |std/make[1]#_g7452_|
                                                         (cons |std/make[1]#_g7453_|
                                                               (cons |std/make[1]#_g7454_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             (cons |std/make[1]#_g7455_| '())))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (cons (cons |std/make[1]#_g7456_|
                                                 (cons |std/make[1]#_g7457_|
                                                       (cons |std/make[1]#_g7458_|
                                                             (cons |std/make[1]#_g7459_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons |std/make[1]#_g7460_|
                                 (cons |std/make[1]#_g7461_|
                                       (cons |std/make[1]#_g7462_|
                                             (cons |std/make[1]#_g7463_|
                                                   (cons |std/make[1]#_g7464_|
                                                         (cons |std/make[1]#_g7465_|
                                                               (cons |std/make[1]#_g7466_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             (cons |std/make[1]#_g7467_|
                                   (cons |std/make[1]#_g7468_| '())))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'settings
        ':init!
        '((transparent: . #t))
        '(srcdir libdir
                 bindir
                 prefix
                 force
                 optimize
                 debug
                 static
                 static-debug
                 verbose
                 build-deps
                 libdir-prefix
                 parallelize))))
    (define |std/make[:0:]#with-cache|
      (lambda (_$stx401_)
        (let* ((_g405429_
                (lambda (_g406425_)
                  (gx#raise-syntax-error '#f '"Bad syntax" _g406425_)))
               (_g404516_
                (lambda (_g406433_)
                  (if (gx#stx-pair? _g406433_)
                      (let ((_e409436_ (gx#syntax-e _g406433_)))
                        (let ((_hd410440_
                               (let () (declare (not safe)) (##car _e409436_)))
                              (_tl411443_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _e409436_))))
                          (if (gx#stx-pair? _tl411443_)
                              (let ((_e412446_ (gx#syntax-e _tl411443_)))
                                (let ((_hd413450_
                                       (let ()
                                         (declare (not safe))
                                         (##car _e412446_)))
                                      (_tl414453_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _e412446_))))
                                  (if (gx#stx-pair/null? _tl414453_)
                                      (let ((_g7469_ (gx#syntax-split-splice
                                                      _tl414453_
                                                      '0)))
                                        (begin
                                          (let ((_g7470_ (let ()
                                                           (declare (not safe))
                                                           (if (##values?
                                                                _g7469_)
                                                               (##vector-length
                                                                _g7469_)
                                                               1))))
                                            (if (not (let ()
                                                       (declare (not safe))
                                                       (##fx= _g7470_ 2)))
                                                (error "Context expects 2 values"
                                                       _g7470_)))
                                          (let ((_target415456_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##vector-ref _g7469_ 0)))
                                                (_tl417459_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##vector-ref _g7469_ 1))))
                                            (if (gx#stx-null? _tl417459_)
                                                (letrec ((_loop418462_
                                                          (lambda (_hd416466_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           _body422469_)
                    (if (gx#stx-pair? _hd416466_)
                        (let ((_e419472_ (gx#syntax-e _hd416466_)))
                          (let ((_lp-hd420476_
                                 (let ()
                                   (declare (not safe))
                                   (##car _e419472_)))
                                (_lp-tl421479_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _e419472_))))
                            (_loop418462_
                             _lp-tl421479_
                             (cons _lp-hd420476_ _body422469_))))
                        (let ((_body423482_ (reverse _body422469_)))
                          ((lambda (_L486_ _L488_)
                             (cons (gx#datum->syntax__0 '#f 'call-with-cache)
                                   (cons _L488_
                                         (cons (cons (gx#datum->syntax__0
                                                      '#f
                                                      'lambda)
                                                     (cons '()
                                                           (foldr1 (lambda (_g507510_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                    _g508513_)
                             (cons _g507510_ _g508513_))
                           '()
                           _L486_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               '()))))
                           _body423482_
                           _hd413450_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_loop418462_
                                                   _target415456_
                                                   '()))
                                                (_g405429_ _g406433_)))))
                                      (_g405429_ _g406433_))))
                              (_g405429_ _g406433_))))
                      (_g405429_ _g406433_)))))
          (_g404516_ _$stx401_))))
    (define |std/make[:0:]#with-fresh-cache|
      (lambda (_$stx521_)
        (let* ((_g525545_
                (lambda (_g526541_)
                  (gx#raise-syntax-error '#f '"Bad syntax" _g526541_)))
               (_g524616_
                (lambda (_g526549_)
                  (if (gx#stx-pair? _g526549_)
                      (let ((_e528552_ (gx#syntax-e _g526549_)))
                        (let ((_hd529556_
                               (let () (declare (not safe)) (##car _e528552_)))
                              (_tl530559_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _e528552_))))
                          (if (gx#stx-pair/null? _tl530559_)
                              (let ((_g7471_ (gx#syntax-split-splice
                                              _tl530559_
                                              '0)))
                                (begin
                                  (let ((_g7472_ (let ()
                                                   (declare (not safe))
                                                   (if (##values? _g7471_)
                                                       (##vector-length
                                                        _g7471_)
                                                       1))))
                                    (if (not (let ()
                                               (declare (not safe))
                                               (##fx= _g7472_ 2)))
                                        (error "Context expects 2 values"
                                               _g7472_)))
                                  (let ((_target531562_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref _g7471_ 0)))
                                        (_tl533565_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref _g7471_ 1))))
                                    (if (gx#stx-null? _tl533565_)
                                        (letrec ((_loop534568_
                                                  (lambda (_hd532572_
                                                           _body538575_)
                                                    (if (gx#stx-pair?
                                                         _hd532572_)
                                                        (let ((_e535578_
                                                               (gx#syntax-e
                                                                _hd532572_)))
                                                          (let ((_lp-hd536582_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let () (declare (not safe)) (##car _e535578_)))
                        (_lp-tl537585_
                         (let () (declare (not safe)) (##cdr _e535578_))))
                    (_loop534568_
                     _lp-tl537585_
                     (cons _lp-hd536582_ _body538575_))))
                (let ((_body539588_ (reverse _body538575_)))
                  ((lambda (_L592_)
                     (cons (gx#datum->syntax__0 '#f 'call-with-fresh-cache)
                           (cons (cons (gx#datum->syntax__0 '#f 'lambda)
                                       (cons '()
                                             (foldr1 (lambda (_g607610_
                                                              _g608613_)
                                                       (cons _g607610_
                                                             _g608613_))
                                                     '()
                                                     _L592_)))
                                 '())))
                   _body539588_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (_loop534568_ _target531562_ '()))
                                        (_g525545_ _g526549_)))))
                              (_g525545_ _g526549_))))
                      (_g525545_ _g526549_)))))
          (_g524616_ _$stx521_))))))
