summaryrefslogtreecommitdiff
path: root/module/rnrs
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2013-08-11 22:46:22 -0400
committerMark H Weaver <mhw@netris.org>2013-08-11 22:46:22 -0400
commit1160e2d94e6a53e4509f81ff08798655db9cae26 (patch)
tree01885df852779fe22ca336082e033dfbff6f5c6e /module/rnrs
parent1e5c32054e002e2c12ba0188b58b7d26432c3495 (diff)
parent9ea816f54a3cc2216eac45c6238fa06448d824df (diff)
downloadguile-1160e2d94e6a53e4509f81ff08798655db9cae26.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Diffstat (limited to 'module/rnrs')
-rw-r--r--module/rnrs/arithmetic/flonums.scm15
1 files changed, 2 insertions, 13 deletions
diff --git a/module/rnrs/arithmetic/flonums.scm b/module/rnrs/arithmetic/flonums.scm
index 1c4b94ce7..e3f3ce714 100644
--- a/module/rnrs/arithmetic/flonums.scm
+++ b/module/rnrs/arithmetic/flonums.scm
@@ -153,19 +153,8 @@
(assert-iflonum fl1 fl2)
(mod0 fl1 fl2))
- (define (flnumerator fl)
- (assert-flonum fl)
- (case fl
- ((+inf.0) +inf.0)
- ((-inf.0) -inf.0)
- (else (numerator fl))))
-
- (define (fldenominator fl)
- (assert-flonum fl)
- (case fl
- ((+inf.0) 1.0)
- ((-inf.0) 1.0)
- (else (denominator fl))))
+ (define (flnumerator fl) (assert-flonum fl) (numerator fl))
+ (define (fldenominator fl) (assert-flonum fl) (denominator fl))
(define (flfloor fl) (assert-flonum fl) (floor fl))
(define (flceiling fl) (assert-flonum fl) (ceiling fl))