(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define scheme/repl-impl#with-id!
    (lambda (_ctx407_ _id408_)
      (##structure-set! _ctx407_ _id408_ '1 gx#expander-context::t '#f)
      _ctx407_))
  (define scheme/repl-impl#r5rs-top
    (scheme/repl-impl#with-id!
     (let ((__obj4597 (make-object gx#top-context::t '5)))
       (gx#top-context:::init!__0 __obj4597)
       __obj4597)
     'r5rs-top))
  (define scheme/repl-impl#r5rs-null
    (scheme/repl-impl#with-id!
     (let ((__obj4598 (make-object gx#top-context::t '5)))
       (gx#top-context:::init!__0 __obj4598)
       __obj4598)
     'r5rs-null-top))
  (define scheme/repl-impl#interaction
    (scheme/repl-impl#with-id!
     (let ((__obj4599 (make-object gx#top-context::t '5)))
       (gx#top-context:::init!__0 __obj4599)
       __obj4599)
     'r7rs-interaction))
  (define scheme/repl-impl#repl-environment-init!
    (lambda ()
      (letrec ((_import!401_
                (lambda (_ctx403_ _mod404_)
                  (call-with-parameters
                   (lambda ()
                     (gx#eval-syntax__0 (cons 'import (cons _mod404_ '()))))
                   gx#current-expander-context
                   _ctx403_))))
        (_gx#load-expander!)
        (_import!401_ scheme/repl-impl#r5rs-top ':scheme/r5rs)
        (_import!401_ scheme/repl-impl#r5rs-null ':scheme/r5rs-null)
        (_import!401_ scheme/repl-impl#interaction ':scheme/r7rs)
        (_import!401_ scheme/repl-impl#interaction '(scheme base)))))
  (define scheme/repl-impl#init!
    (make-promise (lambda () (scheme/repl-impl#repl-environment-init!))))
  (define scheme/repl-impl#r7rs-interaction-environment
    (lambda () (force scheme/repl-impl#init!) scheme/repl-impl#interaction))
  (define scheme/repl-impl#r7rs-null-environment
    (lambda (_version393_)
      (force scheme/repl-impl#init!)
      (let ((_$e395_ _version393_))
        (if (eq? '5 _$e395_)
            (scheme/repl-impl#with-id!
             (let ((__obj4600 (make-object gx#top-context::t '5)))
               (gx#top-context:::init!__% __obj4600 scheme/repl-impl#r5rs-null)
               __obj4600)
             'r5rs-null)
            (error '"Unrecognized Scheme Report version" _version393_)))))
  (define scheme/repl-impl#r7rs-scheme-report-environment
    (lambda (_version388_)
      (force scheme/repl-impl#init!)
      (let ((_$e390_ _version388_))
        (if (eq? '5 _$e390_)
            (scheme/repl-impl#with-id!
             (let ((__obj4601 (make-object gx#top-context::t '5)))
               (gx#top-context:::init!__% __obj4601 scheme/repl-impl#r5rs-top)
               __obj4601)
             'r5rs-report)
            (error '"Unrecognized Scheme Report version" _version388_))))))
