(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define scheme/repl-impl#with-id!
    (lambda (_ctx7990_ _id7991_)
      (##structure-set! _ctx7990_ _id7991_ '1 gx#expander-context::t '#f)
      _ctx7990_))
  (define scheme/repl-impl#r5rs-top
    (scheme/repl-impl#with-id!
     (let ((__obj7992 (make-object gx#top-context::t '5)))
       (gx#top-context:::init!__0 __obj7992)
       __obj7992)
     'r5rs-top))
  (define scheme/repl-impl#r5rs-null
    (scheme/repl-impl#with-id!
     (let ((__obj7993 (make-object gx#top-context::t '5)))
       (gx#top-context:::init!__0 __obj7993)
       __obj7993)
     'r5rs-null-top))
  (define scheme/repl-impl#interaction
    (scheme/repl-impl#with-id!
     (let ((__obj7994 (make-object gx#top-context::t '5)))
       (gx#top-context:::init!__0 __obj7994)
       __obj7994)
     'r7rs-interaction))
  (define scheme/repl-impl#repl-environment-init!
    (lambda ()
      (letrec ((_import!7984_
                (lambda (_ctx7986_ _mod7987_)
                  (call-with-parameters
                   (lambda ()
                     (gx#eval-syntax__0 (cons 'import (cons _mod7987_ '()))))
                   gx#current-expander-context
                   _ctx7986_))))
        (_gx#load-expander!)
        (_import!7984_ scheme/repl-impl#r5rs-top ':scheme/r5rs)
        (_import!7984_ scheme/repl-impl#r5rs-null ':scheme/r5rs-null)
        (_import!7984_ scheme/repl-impl#interaction ':scheme/r7rs)
        (_import!7984_ 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 (_version7976_)
      (force scheme/repl-impl#init!)
      (let ((_$e7978_ _version7976_))
        (if (eq? '5 _$e7978_)
            (scheme/repl-impl#with-id!
             (let ((__obj7995 (make-object gx#top-context::t '5)))
               (gx#top-context:::init!__% __obj7995 scheme/repl-impl#r5rs-null)
               __obj7995)
             'r5rs-null)
            (error '"Unrecognized Scheme Report version" _version7976_)))))
  (define scheme/repl-impl#r7rs-scheme-report-environment
    (lambda (_version7971_)
      (force scheme/repl-impl#init!)
      (let ((_$e7973_ _version7971_))
        (if (eq? '5 _$e7973_)
            (scheme/repl-impl#with-id!
             (let ((__obj7996 (make-object gx#top-context::t '5)))
               (gx#top-context:::init!__% __obj7996 scheme/repl-impl#r5rs-top)
               __obj7996)
             'r5rs-report)
            (error '"Unrecognized Scheme Report version" _version7971_))))))
