improved domain check

svn: r16611
2009-11-07 17:29:50 +00:00 · 2009-11-07 17:29:50 +00:00 · d5b5351751
commit d5b5351751
parent 5877133df6
1 changed files with 2 additions and 0 deletions
--- a/collects/scheme/math.ss
+++ b/collects/scheme/math.ss
@ -39,6 +39,8 @@
    (λ (r)
      (unless (and (real? r) (positive? r))
        (raise-type-error 'order-of-magnitude "positive real number" r))
+      (when (= r +inf.0)
+        (raise-type-error 'order-of-magnitude "non-infinite" r))
      (let* ([q (inexact->exact r)]
             [m
              (floor