(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define scheme/load-impl#r7rs-load__%
    (lambda (_path389_ _env390_)
      (call-with-parameters
       (lambda ()
         (let ((__tmp4592 (lambda _args393_ '#f)))
           (declare (not safe))
           (##load _path389_ __tmp4592 '#t '#t '#f)))
       gx#current-expander-context
       _env390_)))
  (define scheme/load-impl#r7rs-load__0
    (lambda (_path398_)
      (let ((_env400_ (scheme/repl-impl#r7rs-interaction-environment)))
        (scheme/load-impl#r7rs-load__% _path398_ _env400_))))
  (define scheme/load-impl#r7rs-load
    (lambda _g4594_
      (let ((_g4593_ (let () (declare (not safe)) (##length _g4594_))))
        (cond ((let () (declare (not safe)) (##fx= _g4593_ 1))
               (apply scheme/load-impl#r7rs-load__0 _g4594_))
              ((let () (declare (not safe)) (##fx= _g4593_ 2))
               (apply scheme/load-impl#r7rs-load__% _g4594_))
              (else
               (##raise-wrong-number-of-arguments-exception
                scheme/load-impl#r7rs-load
                _g4594_)))))))
