(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/lazy#lazy::t
    (make-struct-type
     'std/lazy#lazy::t
     '#f
     '1
     'lazy
     '((final: . #t))
     '#f
     '(e)))
  (define std/lazy#lazy? (make-struct-predicate std/lazy#lazy::t))
  (define std/lazy#make-lazy
    (lambda _$args39878_
      (apply make-struct-instance std/lazy#lazy::t _$args39878_)))
  (define std/lazy#lazy-e (make-struct-field-accessor std/lazy#lazy::t '0))
  (define std/lazy#lazy-e-set! (make-struct-field-mutator std/lazy#lazy::t '0))
  (define std/lazy#&lazy-e
    (make-struct-field-unchecked-accessor std/lazy#lazy::t '0))
  (define std/lazy#&lazy-e-set!
    (make-struct-field-unchecked-mutator std/lazy#lazy::t '0))
  (define std/lazy#eager
    (lambda (_expr39876_)
      (if (##structure-direct-instance-of? _expr39876_ 'std/lazy#lazy::t)
          _expr39876_
          (if (promise? _expr39876_)
              (##structure std/lazy#lazy::t (cons 'eager _expr39876_))
              (##structure std/lazy#lazy::t (cons 'resolved _expr39876_))))))
  (define std/lazy#force*
    (lambda (_obj39872_)
      (let ((_res39874_ (force _obj39872_)))
        (if (##structure-direct-instance-of? _res39874_ 'std/lazy#lazy::t)
            (std/lazy#force-lazy _res39874_)
            _res39874_))))
  (define std/lazy#force-lazy
    (lambda (_p39855_)
      (declare (not safe))
      (let* ((_content39858_
              (##unchecked-structure-ref _p39855_ '1 std/lazy#lazy::t '#f))
             (_$e39860_ (car _content39858_)))
        (if (eq? 'resolved _$e39860_)
            (cdr _content39858_)
            (if (eq? 'eager _$e39860_)
                (let ((_val39863_ (std/lazy#force* (cdr _content39858_))))
                  (if (eq? (car _content39858_) 'eager)
                      (begin
                        (set-car! _content39858_ 'resolved)
                        (set-cdr! _content39858_ _val39863_)
                        _val39863_)
                      (cdr _content39858_)))
                (if (eq? 'lazy _$e39860_)
                    (let* ((_p*39865_ ((cdr _content39858_)))
                           (_content39867_
                            (##unchecked-structure-ref
                             _p39855_
                             '1
                             std/lazy#lazy::t
                             '#f)))
                      (if (eq? (car _content39867_) 'lazy)
                          (if (##structure-direct-instance-of?
                               _p*39865_
                               'std/lazy#lazy::t)
                              (let ((_content*39870_
                                     (##unchecked-structure-ref
                                      _p*39865_
                                      '1
                                      std/lazy#lazy::t
                                      '#f)))
                                (set-car! _content39867_ (car _content*39870_))
                                (set-cdr! _content39867_ (cdr _content*39870_))
                                (##unchecked-structure-set!
                                 _p*39865_
                                 _content39867_
                                 '1
                                 std/lazy#lazy::t
                                 '#f))
                              (begin
                                (set-car! _content39867_ 'eager)
                                (set-cdr! _content39867_ _p*39865_)))
                          '#!void)
                      (std/lazy#force-lazy _p39855_))
                    '#!void)))))))
