(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define scheme/base-etc#boolean=?__0
    (lambda (_x3674_ _y3676_)
      (if (boolean? _x3674_)
          (if (boolean? _y3676_) (eq? _x3674_ _y3676_) '#f)
          '#f)))
  (define scheme/base-etc#boolean=?__1
    (lambda (_x3679_ _y3680_ . _rest3681_)
      (let* ((_y-rest3684_ (cons _y3680_ _rest3681_))
             (_x-y-rest3687_ (cons _x3679_ _y-rest3684_)))
        (if (andmap1 boolean? _x-y-rest3687_)
            (andmap1 (lambda (_g36903692_) (eq? _x3679_ _g36903692_))
                     _y-rest3684_)
            '#f))))
  (define scheme/base-etc#boolean=?
    (lambda _g3719_
      (let ((_g3718_ (length _g3719_)))
        (cond ((##fx= _g3718_ 2) (apply scheme/base-etc#boolean=?__0 _g3719_))
              ((##fx>= _g3718_ 2) (apply scheme/base-etc#boolean=?__1 _g3719_))
              (else
               (##raise-wrong-number-of-arguments-exception
                scheme/base-etc#boolean=?
                _g3719_))))))
  (define scheme/base-etc#symbol=?__0
    (lambda (_x3653_ _y3655_)
      (if (symbol? _x3653_)
          (if (symbol? _y3655_) (eq? _x3653_ _y3655_) '#f)
          '#f)))
  (define scheme/base-etc#symbol=?__1
    (lambda (_x3658_ _y3659_ . _rest3660_)
      (let* ((_y-rest3663_ (cons _y3659_ _rest3660_))
             (_x-y-rest3666_ (cons _x3658_ _y-rest3663_)))
        (if (andmap1 symbol? _x-y-rest3666_)
            (andmap1 (lambda (_g36693671_) (eq? _x3658_ _g36693671_))
                     _y-rest3663_)
            '#f))))
  (define scheme/base-etc#symbol=?
    (lambda _g3721_
      (let ((_g3720_ (length _g3721_)))
        (cond ((##fx= _g3720_ 2) (apply scheme/base-etc#symbol=?__0 _g3721_))
              ((##fx>= _g3720_ 2) (apply scheme/base-etc#symbol=?__1 _g3721_))
              (else
               (##raise-wrong-number-of-arguments-exception
                scheme/base-etc#symbol=?
                _g3721_))))))
  (define scheme/base-etc#square__impl (lambda (_x3651_) (expt _x3651_ '2)))
  (define scheme/base-etc#list-copy
    (lambda (_lst3649_) (foldr1 cons '() _lst3649_)))
  (define scheme/base-etc#list-set!
    (lambda (_lst3645_ _k3646_ _obj3647_)
      (set-car! (list-tail _lst3645_ _k3646_) _obj3647_))))
