#!r6rs
(library (rsc3 math exact)
(export floor-exact round-exact)
(import (rnrs)
	(only (rnrs r5rs) inexact->exact))

;; Exact integer constructors and predicate.

(define (floor-exact n)    (inexact->exact (floor n)))
(define (ceiling-exact n)  (inexact->exact (ceiling n)))
(define (truncate-exact n) (inexact->exact (truncate n)))
(define (round-exact n)    (inexact->exact (round n)))

;;(define (exact-integer? x) (and (integer? x) (exact? x)))

)