From d24af2ea3fcc88a535957f641b9bd1fa91f0c8f4 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sun, 25 Sep 2011 17:35:04 -0600 Subject: [PATCH] removed useless requires original commit: c7f86d276c68b12e87dc46cef4a8e1b95538f88d --- collects/rackunit/gui.rkt | 2 +- collects/rackunit/private/base.rkt | 3 +-- collects/rackunit/private/check-info.rkt | 2 +- collects/rackunit/private/format.rkt | 1 - collects/rackunit/private/gui/cache-box.rkt | 2 +- collects/rackunit/private/gui/config.rkt | 2 +- collects/rackunit/private/gui/controller.rkt | 3 +-- collects/rackunit/private/gui/drracket-ui.rkt | 4 +--- collects/rackunit/private/gui/gui.rkt | 1 - collects/rackunit/private/gui/interfaces.rkt | 3 +-- collects/rackunit/private/gui/model.rkt | 1 - collects/rackunit/private/gui/model2rml.rkt | 2 -- collects/rackunit/private/gui/rml.rkt | 1 - collects/rackunit/private/gui/view.rkt | 1 - collects/rackunit/private/location.rkt | 2 +- collects/rackunit/private/test-case.rkt | 3 --- collects/rackunit/private/text-ui-util.rkt | 5 ----- collects/rackunit/text-ui.rkt | 6 +----- collects/rackunit/tool.rkt | 1 - 19 files changed, 10 insertions(+), 35 deletions(-) diff --git a/collects/rackunit/gui.rkt b/collects/rackunit/gui.rkt index 6e7434a..73465c8 100644 --- a/collects/rackunit/gui.rkt +++ b/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") diff --git a/collects/rackunit/private/base.rkt b/collects/rackunit/private/base.rkt index 4570be0..b1b315d 100644 --- a/collects/rackunit/private/base.rkt +++ b/collects/rackunit/private/base.rkt @@ -1,6 +1,5 @@ #lang racket/base - -(require racket/contract) +(require racket/contract/base) ;; struct test : (define-struct test ()) diff --git a/collects/rackunit/private/check-info.rkt b/collects/rackunit/private/check-info.rkt index 5b9a741..563ed0b 100644 --- a/collects/rackunit/private/check-info.rkt +++ b/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)) diff --git a/collects/rackunit/private/format.rkt b/collects/rackunit/private/format.rkt index 958f799..e254f19 100644 --- a/collects/rackunit/private/format.rkt +++ b/collects/rackunit/private/format.rkt @@ -1,5 +1,4 @@ #lang racket/base - (require racket/match srfi/13 "base.rkt" diff --git a/collects/rackunit/private/gui/cache-box.rkt b/collects/rackunit/private/gui/cache-box.rkt index f3fce40..9d141db 100644 --- a/collects/rackunit/private/gui/cache-box.rkt +++ b/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? diff --git a/collects/rackunit/private/gui/config.rkt b/collects/rackunit/private/gui/config.rkt index 74d22b4..dbfee0f 100644 --- a/collects/rackunit/private/gui/config.rkt +++ b/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)) diff --git a/collects/rackunit/private/gui/controller.rkt b/collects/rackunit/private/gui/controller.rkt index 97e76bc..cb9e65e 100644 --- a/collects/rackunit/private/gui/controller.rkt +++ b/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% diff --git a/collects/rackunit/private/gui/drracket-ui.rkt b/collects/rackunit/private/gui/drracket-ui.rkt index d6dd57b..20196e7 100644 --- a/collects/rackunit/private/gui/drracket-ui.rkt +++ b/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. diff --git a/collects/rackunit/private/gui/gui.rkt b/collects/rackunit/private/gui/gui.rkt index 0df37bb..fa5dda4 100644 --- a/collects/rackunit/private/gui/gui.rkt +++ b/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" diff --git a/collects/rackunit/private/gui/interfaces.rkt b/collects/rackunit/private/gui/interfaces.rkt index adcff8f..6805fd8 100644 --- a/collects/rackunit/private/gui/interfaces.rkt +++ b/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 diff --git a/collects/rackunit/private/gui/model.rkt b/collects/rackunit/private/gui/model.rkt index 74e25cc..985ca1e 100644 --- a/collects/rackunit/private/gui/model.rkt +++ b/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" diff --git a/collects/rackunit/private/gui/model2rml.rkt b/collects/rackunit/private/gui/model2rml.rkt index f874cf3..eee29a5 100644 --- a/collects/rackunit/private/gui/model2rml.rkt +++ b/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") diff --git a/collects/rackunit/private/gui/rml.rkt b/collects/rackunit/private/gui/rml.rkt index eea40bf..3525db0 100644 --- a/collects/rackunit/private/gui/rml.rkt +++ b/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") diff --git a/collects/rackunit/private/gui/view.rkt b/collects/rackunit/private/gui/view.rkt index 2089f1c..fecc679 100644 --- a/collects/rackunit/private/gui/view.rkt +++ b/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 diff --git a/collects/rackunit/private/location.rkt b/collects/rackunit/private/location.rkt index cace08e..5852a9e 100644 --- a/collects/rackunit/private/location.rkt +++ b/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 diff --git a/collects/rackunit/private/test-case.rkt b/collects/rackunit/private/test-case.rkt index 3a4577f..6bbee11 100644 --- a/collects/rackunit/private/test-case.rkt +++ b/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 diff --git a/collects/rackunit/private/text-ui-util.rkt b/collects/rackunit/private/text-ui-util.rkt index affc9ca..deb4e4d 100644 --- a/collects/rackunit/private/text-ui-util.rkt +++ b/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 ""))) - diff --git a/collects/rackunit/text-ui.rkt b/collects/rackunit/text-ui.rkt index 89d78f0..240632e 100644 --- a/collects/rackunit/text-ui.rkt +++ b/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)))))) - diff --git a/collects/rackunit/tool.rkt b/collects/rackunit/tool.rkt index 230df69..31a078c 100644 --- a/collects/rackunit/tool.rkt +++ b/collects/rackunit/tool.rkt @@ -1,7 +1,6 @@ #lang racket/base (require racket/class racket/gui/base - framework drscheme/tool racket/unit)