From b468661a0e76fbe5ef46fe0e89e030f43f7b3acc Mon Sep 17 00:00:00 2001
From: Greg Hendershott <greghendershott@gmail.com>
Date: Tue, 9 Sep 2014 10:54:19 -0400
Subject: [PATCH] Use racket/base instead of racket.

---
 describe/describe-test.rkt       | 2 +-
 describe/float-test-double.rkt   | 2 +-
 describe/float-test-extended.rkt | 2 +-
 describe/float-test-single.rkt   | 2 +-
 describe/main.rkt                | 8 +++++---
 5 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/describe/describe-test.rkt b/describe/describe-test.rkt
index 3a01a58..85b9db7 100644
--- a/describe/describe-test.rkt
+++ b/describe/describe-test.rkt
@@ -1,4 +1,4 @@
-#lang racket
+#lang racket/base
 ;;; describe-test.rkt
 ;;; Copyright (c) 2009-2010 M. Douglas Williams
 ;;;
diff --git a/describe/float-test-double.rkt b/describe/float-test-double.rkt
index a110751..4347c2a 100644
--- a/describe/float-test-double.rkt
+++ b/describe/float-test-double.rkt
@@ -1,4 +1,4 @@
-#lang racket
+#lang racket/base
 
 (require "main.rkt")
 
diff --git a/describe/float-test-extended.rkt b/describe/float-test-extended.rkt
index c1f5f62..7923dd3 100644
--- a/describe/float-test-extended.rkt
+++ b/describe/float-test-extended.rkt
@@ -1,4 +1,4 @@
-#lang racket
+#lang racket/base
 
 (require racket/extflonum
          "main.rkt")
diff --git a/describe/float-test-single.rkt b/describe/float-test-single.rkt
index eb500a0..787a448 100644
--- a/describe/float-test-single.rkt
+++ b/describe/float-test-single.rkt
@@ -1,4 +1,4 @@
-#lang racket
+#lang racket/base
 
 (require "main.rkt")
 
diff --git a/describe/main.rkt b/describe/main.rkt
index a12ee8f..bd25a73 100644
--- a/describe/main.rkt
+++ b/describe/main.rkt
@@ -1,4 +1,4 @@
-#lang racket
+#lang racket/base
 ;;; main.rkt
 ;;; Copyright (c) 2009-2010 M. Douglas Williams
 ;;;
@@ -70,7 +70,9 @@
 ;;; 2.0.1    08/26/13 Added exact decimal value for floats. (MDW)
 ;;; 2.0.1    09/26/13 Added bigfloat support to float->string. (MDW)
 
-(require racket/extflonum
+(require racket/contract/base
+         racket/extflonum
+         racket/math
          racket/mpair)
 
 ;;; (variant x) -> symbol
@@ -845,4 +847,4 @@
  (description
   (-> any/c string?))
  (describe
-  (-> any/c void?)))
\ No newline at end of file
+  (-> any/c void?)))