mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 21:59:17 +02:00
31 lines
1.1 KiB
Scheme
31 lines
1.1 KiB
Scheme
;; This library is deprecated, occurring in early R7RS drafts before
|
|
;; being removed.
|
|
|
|
(define-library (scheme division)
|
|
(import (scheme))
|
|
(export ceiling-quotient ceiling-remainder ceiling/
|
|
centered-quotient centered-remainder centered/
|
|
euclidean-quotient euclidean-remainder euclidean/
|
|
floor-quotient floor-remainder floor/
|
|
round-quotient round-remainder round/
|
|
truncate-quotient truncate-remainder truncate/)
|
|
;; The second definition is always valid, but the first is simpler
|
|
;; and faster if exact ratios are supported and handled correctly
|
|
;; but floor/ceil/round.
|
|
(cond-expand
|
|
(ratios
|
|
(begin
|
|
(define-syntax copy-exactness2
|
|
(syntax-rules ()
|
|
((copy-exactness2 src1 src2 expr)
|
|
expr)))))
|
|
(else
|
|
(begin
|
|
(define-syntax copy-exactness2
|
|
(syntax-rules ()
|
|
((copy-exactness2 src1 src2 expr)
|
|
(let ((tmp expr))
|
|
(if (and (exact? src1) (exact? src2))
|
|
(inexact->exact tmp)
|
|
tmp))))))))
|
|
(include "division.scm"))
|