From d5b5351751fff84b20fa20fd7e08372624722e99 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 7 Nov 2009 17:29:50 +0000
Subject: [PATCH] improved domain check

svn: r16611
---
 collects/scheme/math.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/scheme/math.ss b/collects/scheme/math.ss
index 46f9e11056..387117a990 100644
--- 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