(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define scheme/base-impl#r7rs-with-exception-handler
    (lambda (_handler6826_ _thunk6827_)
      (with-exception-handler
       (let ((_E6829_ (current-exception-handler)))
         (lambda (_exn6831_)
           (with-exception-handler
            _E6829_
            (lambda () (_handler6826_ _exn6831_)))))
       _thunk6827_)))
  (define scheme/base-impl#raise-continuable
    (lambda (_exn6824_) (raise _exn6824_)))
  (define scheme/base-impl#r7rs-raise
    (lambda (_exn6822_)
      (raise _exn6822_)
      (error '"Exception handler returned in non continuable exception"
             _exn6822_)
      (##primordial-exception-handler _exn6822_)
      (##thread-end-with-uncaught-exception! _exn6822_)))
  (define scheme/base-impl#floor/
    (lambda (_n6817_ _divisor6818_)
      (if (and (<= '0 _n6817_) (<= '0 _divisor6818_))
          (values (quotient _n6817_ _divisor6818_)
                  (remainder _n6817_ _divisor6818_))
          (let ((_m6820_ (modulo _n6817_ _divisor6818_)))
            (values (quotient (- _n6817_ _m6820_) _divisor6818_) _m6820_)))))
  (define scheme/base-impl#floor-quotient
    (lambda (_n6814_ _divisor6815_)
      (if (eq? (<= '0 _n6814_) (<= '0 _divisor6815_))
          (quotient _n6814_ _divisor6815_)
          (quotient
           (- _n6814_ (modulo _n6814_ _divisor6815_))
           _divisor6815_))))
  (define scheme/base-impl#floor-remainder modulo)
  (define scheme/base-impl#truncate/
    (lambda (_x6811_ _y6812_)
      (values (quotient _x6811_ _y6812_) (remainder _x6811_ _y6812_))))
  (define scheme/base-impl#truncate-quotient quotient)
  (define scheme/base-impl#truncate-remainder remainder))
