(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define scheme/base-impl#r7rs-with-exception-handler
    (lambda (_handler2644_ _thunk2645_)
      (with-exception-handler
       (let ((_E2647_ (current-exception-handler)))
         (lambda (_exn2649_)
           (with-exception-handler
            _E2647_
            (lambda () (_handler2644_ _exn2649_)))))
       _thunk2645_)))
  (define scheme/base-impl#raise-continuable
    (lambda (_exn2642_) (raise _exn2642_)))
  (define scheme/base-impl#r7rs-raise
    (lambda (_exn2640_)
      (raise _exn2640_)
      (error '"Exception handler returned in non continuable exception"
             _exn2640_)
      (let () (declare (not safe)) (##primordial-exception-handler _exn2640_))
      (let ()
        (declare (not safe))
        (##thread-end-with-uncaught-exception! _exn2640_))))
  (define scheme/base-impl#floor/
    (lambda (_n2635_ _divisor2636_)
      (if (and (<= '0 _n2635_) (<= '0 _divisor2636_))
          (values (quotient _n2635_ _divisor2636_)
                  (remainder _n2635_ _divisor2636_))
          (let ((_m2638_ (modulo _n2635_ _divisor2636_)))
            (values (quotient (- _n2635_ _m2638_) _divisor2636_) _m2638_)))))
  (define scheme/base-impl#floor-quotient
    (lambda (_n2632_ _divisor2633_)
      (if (eq? (<= '0 _n2632_) (<= '0 _divisor2633_))
          (quotient _n2632_ _divisor2633_)
          (quotient
           (- _n2632_ (modulo _n2632_ _divisor2633_))
           _divisor2633_))))
  (define scheme/base-impl#floor-remainder modulo)
  (define scheme/base-impl#truncate/
    (lambda (_x2629_ _y2630_)
      (values (quotient _x2629_ _y2630_) (remainder _x2629_ _y2630_))))
  (define scheme/base-impl#truncate-quotient quotient)
  (define scheme/base-impl#truncate-remainder remainder))
