1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00

(inexact->exact): Use corrent argument order for pass-if-exception.

Use "+inf.0" instead of "+.inf", etc.
This commit is contained in:
Marius Vollmer 2003-10-10 14:32:11 +00:00
parent 9ddeb77696
commit a409f865f0

View file

@ -2074,14 +2074,14 @@
(with-test-prefix "inexact->exact"
(pass-if-exception exception:numerical-overflow "+inf"
(inexact->exact +.inf))
(pass-if-exception "+inf" exception:numerical-overflow
(inexact->exact +inf.0))
(pass-if-exception exception:numerical-overflow "-inf"
(inexact->exact -.inf))
(pass-if-exception "-inf" exception:numerical-overflow
(inexact->exact -inf.0))
(pass-if-exception exception:numerical-overflow "nan"
(inexact->exact +.nan))
(pass-if-exception "nan" exception:numerical-overflow
(inexact->exact +nan.0))
(with-test-prefix "2.0**i to exact and back"
(do ((i 0 (1+ i))