removed useless requires

original commit: c7f86d276c68b12e87dc46cef4a8e1b95538f88d

collects/rackunit/gui.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require racket/contract
+(require racket/contract/base
          racket/gui/base
          "private/base.rkt"
          "private/gui/gui.rkt")

collects/rackunit/private/base.rkt

@@ -1,6 +1,5 @@
 #lang racket/base
-
-(require racket/contract)
+(require racket/contract/base)
 
 ;; struct test : 
 (define-struct test ())

collects/rackunit/private/check-info.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require racket/contract
+(require racket/contract/base
          "location.rkt"
          (for-syntax racket/base
                      racket/syntax))

collects/rackunit/private/format.rkt

@@ -1,5 +1,4 @@
 #lang racket/base
-
 (require racket/match
          srfi/13
          "base.rkt"

collects/rackunit/private/gui/cache-box.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require racket/contract)
+(require racket/contract/base)
 
 ;; Add a new kind of promise instead?
 

collects/rackunit/private/gui/config.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require framework
+(require framework/preferences
          unstable/gui/prefs)
 (provide (all-defined-out))
 

collects/rackunit/private/gui/controller.rkt

@@ -4,8 +4,7 @@
          unstable/gui/notify
          "../base.rkt"
          "interfaces.rkt"
-         "model.rkt"
-         "view.rkt")
+         "model.rkt")
 (provide controller%)
 
 (define controller%

collects/rackunit/private/gui/drracket-ui.rkt

@@ -1,7 +1,5 @@
 #lang racket/base
-(require racket/list
-         racket/string
-         mzlib/etc
+(require mzlib/etc
          "drracket-link.rkt")
 
 ;; Procedures which *may* be overridden by DrRacket to do useful things.

collects/rackunit/private/gui/gui.rkt

@@ -1,7 +1,6 @@
 #lang racket/base
 (require racket/class
          unstable/class-iop
-         racket/gui/base
          "../base.rkt"
          "../result.rkt"
          "../check-info.rkt"

collects/rackunit/private/gui/interfaces.rkt

@@ -1,6 +1,5 @@
 #lang racket/base
-(require racket/class
-         unstable/class-iop)
+(require unstable/class-iop)
 (provide (all-defined-out))
 
 ;; controller

collects/rackunit/private/gui/model.rkt

@@ -1,7 +1,6 @@
 #lang racket/base
 (require racket/class
          unstable/class-iop
-         racket/list
          data/gvector
          "../base.rkt"
          "interfaces.rkt"

collects/rackunit/private/gui/model2rml.rkt

@@ -1,10 +1,8 @@
 #lang racket/base
 (require racket/class
          unstable/class-iop
-         racket/list
          racket/gui/base
          racket/match
-         racket/file
          racket/path
          mrlib/include-bitmap
          (prefix-in drlink: "drracket-ui.rkt")

collects/rackunit/private/gui/rml.rkt

@@ -1,6 +1,5 @@
 #lang racket/base
 (require racket/class
-         unstable/class-iop
          racket/gui/base
          framework
          "interfaces.rkt")

collects/rackunit/private/gui/view.rkt

@@ -2,7 +2,6 @@
 (require racket/class
          unstable/class-iop
          unstable/gui/notify
-         racket/list
          racket/gui/base
          framework
          mrlib/hierlist

collects/rackunit/private/location.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require racket/list
-         racket/contract)
+         racket/contract/base)
 
 ;; type location = (list any number/#f number/#f number/#f number/#f)
 ;; location : source line column position span

collects/rackunit/private/test-case.rkt

@@ -1,9 +1,6 @@
 #lang racket/base
-
 (require (for-syntax racket/base)
-         "base.rkt"
          "format.rkt"
-         "check-info.rkt"
          "check.rkt")
 
 (provide current-test-name

collects/rackunit/private/text-ui-util.rkt

@@ -27,14 +27,9 @@
 ;; Commentary:
 
 #lang racket/base
-
-(require (only-in srfi/13 string-contains string-drop))
-         
-
 (provide trim-current-directory)
 
 ;; trim-current-directory : string -> string
 (define (trim-current-directory path)
   (let ((cd (path->string (current-directory))))
     (regexp-replace (regexp-quote cd) path "")))
-

collects/rackunit/text-ui.rkt

@@ -30,9 +30,6 @@
 
 (require racket/match
          racket/pretty
-         srfi/13
-         srfi/26
-         "main.rkt"
          "private/base.rkt"
          "private/counter.rkt"
          "private/format.rkt"
@@ -241,6 +238,5 @@
         test))
       ((normal) (std-test/text-ui display-context test))
       ((verbose) (std-test/text-ui
-                  (cut display-context <> #t)
+                  (lambda (x) (display-context x #t))
                   test))))))
-

collects/rackunit/tool.rkt

@@ -1,7 +1,6 @@
 #lang racket/base
 (require racket/class
          racket/gui/base
-         framework
          drscheme/tool
          racket/unit)