From 26045a27fb1f1faeb8c9ba1208366e6c519fba52 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Tue, 6 Nov 2012 15:07:09 -0500
Subject: [PATCH] `#lang racket' -> `#lang racket/base' conversions in drracket
 and in redex.

---
 collects/drracket/private/colored-errors.rkt      | 13 +++++++++----
 collects/drracket/private/follow-log.rkt          |  9 +++++++--
 collects/redex/private/compiler/redextomatrix.rkt |  8 ++++++--
 collects/redex/private/pat-unify.rkt              |  8 ++++++--
 4 files changed, 28 insertions(+), 10 deletions(-)

diff --git a/collects/drracket/private/colored-errors.rkt b/collects/drracket/private/colored-errors.rkt
index 8f0f884447..33eabce707 100644
--- a/collects/drracket/private/colored-errors.rkt
+++ b/collects/drracket/private/colored-errors.rkt
@@ -1,13 +1,18 @@
-#lang racket
+#lang racket/base
 
-(define-syntax (test stx) #'(begin)) ;; TODO: convert my test into DrRacket's test framework
-(require ; gmarceau/test
- parser-tools/lex
+(require (for-syntax racket/base)
+         racket/list
+         racket/string
+         racket/contract
+         racket/match
+         parser-tools/lex
          (prefix-in : parser-tools/lex-sre)
          (rename-in srfi/26 [cut //])
          (only-in srfi/1 break)
          unstable/contract)
 
+(define-syntax (test stx) #'(begin)) ;; TODO: convert my test into DrRacket's test framework
+
 ;; An error message has many fragments. The fragments will be concatenated
 ;; before being presented to the user. Some fragment are simply string.
 (struct msg-fragment:str (str) #:transparent)
diff --git a/collects/drracket/private/follow-log.rkt b/collects/drracket/private/follow-log.rkt
index f834e98e3a..bc3f52efc0 100644
--- a/collects/drracket/private/follow-log.rkt
+++ b/collects/drracket/private/follow-log.rkt
@@ -1,5 +1,10 @@
-#lang racket
-(require racket/gui/base
+#lang racket/base
+
+(require racket/list
+         racket/class
+         racket/match
+         racket/pretty
+         racket/gui/base
          framework/private/logging-timer)
 
 #|
diff --git a/collects/redex/private/compiler/redextomatrix.rkt b/collects/redex/private/compiler/redextomatrix.rkt
index dd1a2deac5..9cadc28fe4 100644
--- a/collects/redex/private/compiler/redextomatrix.rkt
+++ b/collects/redex/private/compiler/redextomatrix.rkt
@@ -1,9 +1,13 @@
-#lang racket
+#lang racket/base
+
+(require (except-in racket/base compile)
+         racket/function
+         racket/match)
 (require (except-in redex make-bind plug))
 (require "match.rkt")
 (require racket/set)
 (require profile)
-(require (only-in "../../private/matcher.rkt" 
+(require (only-in "../../private/matcher.rkt"
                   make-bindings
                   make-bind
                   make-mtch
diff --git a/collects/redex/private/pat-unify.rkt b/collects/redex/private/pat-unify.rkt
index 780ad6d267..f3338a3388 100644
--- a/collects/redex/private/pat-unify.rkt
+++ b/collects/redex/private/pat-unify.rkt
@@ -1,6 +1,10 @@
-#lang racket
+#lang racket/base
 
-(require (for-syntax "rewrite-side-conditions.rkt")
+(require racket/list
+         racket/contract
+         racket/set
+         racket/match
+         (for-syntax "rewrite-side-conditions.rkt")
          "match-a-pattern.rkt"
          "matcher.rkt"
          "extract-conditions.rkt")