2074 |
|
|
2075 |
(with-test-prefix "inexact->exact" |
(with-test-prefix "inexact->exact" |
2076 |
|
|
2077 |
(pass-if-exception exception:numerical-overflow "+inf" |
(pass-if-exception "+inf" exception:numerical-overflow |
2078 |
(inexact->exact +.inf)) |
(inexact->exact +inf.0)) |
2079 |
|
|
2080 |
(pass-if-exception exception:numerical-overflow "-inf" |
(pass-if-exception "-inf" exception:numerical-overflow |
2081 |
(inexact->exact -.inf)) |
(inexact->exact -inf.0)) |
2082 |
|
|
2083 |
(pass-if-exception exception:numerical-overflow "nan" |
(pass-if-exception "nan" exception:numerical-overflow |
2084 |
(inexact->exact +.nan)) |
(inexact->exact +nan.0)) |
2085 |
|
|
2086 |
(with-test-prefix "2.0**i to exact and back" |
(with-test-prefix "2.0**i to exact and back" |
2087 |
(do ((i 0 (1+ i)) |
(do ((i 0 (1+ i)) |