(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 _$args621_
      (apply make-struct-instance std/lazy#lazy::t _$args621_)))
  (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 (_expr619_)
      (if (let ()
            (declare (not safe))
            (##structure-direct-instance-of? _expr619_ 'std/lazy#lazy::t))
          _expr619_
          (if (promise? _expr619_)
              (let ((__tmp4221 (cons 'eager _expr619_)))
                (declare (not safe))
                (##structure std/lazy#lazy::t __tmp4221))
              (let ((__tmp4222 (cons 'resolved _expr619_)))
                (declare (not safe))
                (##structure std/lazy#lazy::t __tmp4222))))))
  (define std/lazy#force*
    (lambda (_obj615_)
      (let ((_res617_ (force _obj615_)))
        (if (let ()
              (declare (not safe))
              (##structure-direct-instance-of? _res617_ 'std/lazy#lazy::t))
            (std/lazy#force-lazy _res617_)
            _res617_))))
  (define std/lazy#force-lazy
    (lambda (_p598_)
      (declare (not safe))
      (let* ((_content601_
              (##unchecked-structure-ref _p598_ '1 std/lazy#lazy::t '#f))
             (_$e603_ (car _content601_)))
        (if (eq? 'resolved _$e603_)
            (cdr _content601_)
            (if (eq? 'eager _$e603_)
                (let ((_val606_ (std/lazy#force* (cdr _content601_))))
                  (if (eq? (car _content601_) 'eager)
                      (begin
                        (set-car! _content601_ 'resolved)
                        (set-cdr! _content601_ _val606_)
                        _val606_)
                      (cdr _content601_)))
                (if (eq? 'lazy _$e603_)
                    (let* ((_p*608_ ((cdr _content601_)))
                           (_content610_
                            (##unchecked-structure-ref
                             _p598_
                             '1
                             std/lazy#lazy::t
                             '#f)))
                      (if (eq? (car _content610_) 'lazy)
                          (if (##structure-direct-instance-of?
                               _p*608_
                               'std/lazy#lazy::t)
                              (let ((_content*613_
                                     (##unchecked-structure-ref
                                      _p*608_
                                      '1
                                      std/lazy#lazy::t
                                      '#f)))
                                (set-car! _content610_ (car _content*613_))
                                (set-cdr! _content610_ (cdr _content*613_))
                                (##unchecked-structure-set!
                                 _p*608_
                                 _content610_
                                 '1
                                 std/lazy#lazy::t
                                 '#f))
                              (begin
                                (set-car! _content610_ 'eager)
                                (set-cdr! _content610_ _p*608_)))
                          '#!void)
                      (std/lazy#force-lazy _p598_))
                    '#!void)))))))
