From 9f7ea2435e9e48ea5caa828d2380e7d28381a91e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 31 Jan 2011 18:14:28 -0700
Subject: [PATCH] bind `double-flonum?' so that it has its own name

---
 collects/racket/private/base.rkt     | 1 -
 collects/racket/private/pre-base.rkt | 6 +++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/collects/racket/private/base.rkt b/collects/racket/private/base.rkt
index bcb848cdd3..a1e784a333 100644
--- a/collects/racket/private/base.rkt
+++ b/collects/racket/private/base.rkt
@@ -21,7 +21,6 @@
                               with-output-to-file
                               regexp-replace*
                               new-apply-proc)
-             (rename flonum? double-flonum?) ; for symmetry with single-flonum?
              struct
              (all-from "hash.rkt")
              (all-from "list.rkt")
diff --git a/collects/racket/private/pre-base.rkt b/collects/racket/private/pre-base.rkt
index bf25e6667a..57d29b7e05 100644
--- a/collects/racket/private/pre-base.rkt
+++ b/collects/racket/private/pre-base.rkt
@@ -103,6 +103,9 @@
          stx
          stx))))
 
+  (define-values (double-flonum?) ; for symmetry with single-flonum?
+    (lambda (x) (flonum? x)))
+
   (#%provide (all-from-except "more-scheme.rkt" old-case fluid-let)
              (all-from "misc.rkt")
              (all-from "define.rkt")
@@ -144,4 +147,5 @@
              (rename define-struct* define-struct)
              define-struct/derived
              struct-field-index
-             struct-copy))
+             struct-copy
+             double-flonum?))