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:
parent
9ddeb77696
commit
a409f865f0
1 changed files with 6 additions and 6 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue