(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define scheme/load-impl#r7rs-load__%
    (lambda (_path7999_ _env8000_)
      (call-with-parameters
       (lambda () (##load _path7999_ (lambda _args8003_ '#f) '#t '#t '#f))
       gx#current-expander-context
       _env8000_)))
  (define scheme/load-impl#r7rs-load__0
    (lambda (_path8008_)
      (let ((_env8010_ (scheme/repl-impl#r7rs-interaction-environment)))
        (scheme/load-impl#r7rs-load__% _path8008_ _env8010_))))
  (define scheme/load-impl#r7rs-load
    (lambda _g8015_
      (let ((_g8014_ (length _g8015_)))
        (cond ((##fx= _g8014_ 1) (apply scheme/load-impl#r7rs-load__0 _g8015_))
              ((##fx= _g8014_ 2) (apply scheme/load-impl#r7rs-load__% _g8015_))
              (else
               (##raise-wrong-number-of-arguments-exception
                scheme/load-impl#r7rs-load
                _g8015_)))))))
