projects / mit-scheme.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 3a6e782) | patch
Define (flo:ulp x) to be distance to next float in direction of x.
authorTaylor R Campbell <campbell@mumble.net>
Wed, 31 Oct 2018 16:37:32 +0000 (16:37 +0000)
committerTaylor R Campbell <campbell@mumble.net>
Wed, 31 Oct 2018 16:37:36 +0000 (16:37 +0000)
commit6ecc2f369458d98f541aa3fa1cf02b9433f63021
tree36f26b18619d738c5881fd1d76c605be1003d7f0tree | snapshot
parent3a6e782d457485eebca58bd821d1523d0485f45dcommit | diff
Define (flo:ulp x) to be distance to next float in direction of x.

Thus, (flo:ulp 1.) = (flo:ulp -1.) = flo:ulp-of-one.  Bottoms out at
infinity: (flo:ulp x) = x if x is infinite.  This definition applies
to zero, too, giving the smallest subnormal.
src/runtime/primitive-arithmetic.scm diff | blob | history
src/runtime/runtime.pkg diff | blob | history
tests/runtime/test-arith.scm diff | blob | history
MIT/GNU Scheme, Pucked