Subject: bug#30426: division inconsistency?

From: [email-masked]
Date: Sun, 11 Feb 2018 14:56:54 -0800

A possible inconsistency:

scheme@(guile-user)> (version)
$1 = "2.0.13"

scheme@(guile-user)> (/ 1 (* 0 +nan.0))
$2 = +nan.0
scheme@(guile-user)> (/ 1 0 +nan.0)
<unnamed port>:3:0: In procedure #<procedure 5557c36be9c0 at <current 
input>:3:0 ()>:
<unnamed port>:3:0: Throw to key `numerical-overflow' with args `("/" 
"Numerical overflow" #f #f)
scheme@(guile-user)> (/ 1 +nan.0 0)
<unnamed port>:5:0: In procedure #<procedure 55ff47f4ad00 at <current 
input>:5:0 ()>:
<unnamed port>:5:0: Throw to key `numerical-overflow' with args `("/" 
"Numerical overflow" #f #f)

scheme@(guile-user)> (* +nan.0 0)
$1 = +nan.0
scheme@(guile-user)> (/ 1 +nan.0)
$2 = +nan.0

similarly with +inf.0:

scheme@(guile-user)> (/ 1 (* +inf.0 0))
$3 = +nan.0
scheme@(guile-user)> (/ 1 +inf.0 0)
<unnamed port>:6:0: In procedure #<procedure 5557c36f7740 at <current 
input>:6:0 ()>:
<unnamed port>:6:0: Throw to key `numerical-overflow' with args `("/" 
"Numerical overflow" #f #f)