(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define scheme/base-etc#boolean=?__0
    (lambda (_x603_ _y605_)
      (if (boolean? _x603_)
          (if (boolean? _y605_) (eq? _x603_ _y605_) '#f)
          '#f)))
  (define scheme/base-etc#boolean=?__1
    (lambda (_x608_ _y609_ . _rest610_)
      (let* ((_y-rest613_ (cons _y609_ _rest610_))
             (_x-y-rest616_ (cons _x608_ _y-rest613_)))
        (if (andmap1 boolean? _x-y-rest616_)
            (andmap1 (lambda (_g619621_) (eq? _x608_ _g619621_)) _y-rest613_)
            '#f))))
  (define scheme/base-etc#boolean=?
    (lambda _g4246_
      (let ((_g4245_ (let () (declare (not safe)) (##length _g4246_))))
        (cond ((let () (declare (not safe)) (##fx= _g4245_ 2))
               (apply scheme/base-etc#boolean=?__0 _g4246_))
              ((let () (declare (not safe)) (##fx>= _g4245_ 2))
               (apply scheme/base-etc#boolean=?__1 _g4246_))
              (else
               (##raise-wrong-number-of-arguments-exception
                scheme/base-etc#boolean=?
                _g4246_))))))
  (define scheme/base-etc#symbol=?__0
    (lambda (_x582_ _y584_)
      (if (symbol? _x582_) (if (symbol? _y584_) (eq? _x582_ _y584_) '#f) '#f)))
  (define scheme/base-etc#symbol=?__1
    (lambda (_x587_ _y588_ . _rest589_)
      (let* ((_y-rest592_ (cons _y588_ _rest589_))
             (_x-y-rest595_ (cons _x587_ _y-rest592_)))
        (if (andmap1 symbol? _x-y-rest595_)
            (andmap1 (lambda (_g598600_) (eq? _x587_ _g598600_)) _y-rest592_)
            '#f))))
  (define scheme/base-etc#symbol=?
    (lambda _g4248_
      (let ((_g4247_ (let () (declare (not safe)) (##length _g4248_))))
        (cond ((let () (declare (not safe)) (##fx= _g4247_ 2))
               (apply scheme/base-etc#symbol=?__0 _g4248_))
              ((let () (declare (not safe)) (##fx>= _g4247_ 2))
               (apply scheme/base-etc#symbol=?__1 _g4248_))
              (else
               (##raise-wrong-number-of-arguments-exception
                scheme/base-etc#symbol=?
                _g4248_))))))
  (define scheme/base-etc#square__impl (lambda (_x580_) (expt _x580_ '2)))
  (define scheme/base-etc#list-copy
    (lambda (_lst578_) (foldr1 cons '() _lst578_)))
  (define scheme/base-etc#list-set!
    (lambda (_lst574_ _k575_ _obj576_)
      (set-car! (list-tail _lst574_ _k575_) _obj576_))))
