From 6e5ea420a1bad921ab07788c64df6a2daaa933af Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 8 Sep 2010 16:25:00 -0400 Subject: [PATCH] Removed useless requires. --- collects/typed-scheme/optimizer/apply.rkt | 5 ----- collects/typed-scheme/optimizer/box.rkt | 6 +++--- collects/typed-scheme/optimizer/dead-code.rkt | 2 +- collects/typed-scheme/optimizer/fixnum.rkt | 2 +- collects/typed-scheme/optimizer/float.rkt | 4 ++-- collects/typed-scheme/optimizer/inexact-complex.rkt | 4 ++-- collects/typed-scheme/optimizer/number.rkt | 2 +- collects/typed-scheme/optimizer/optimizer.rkt | 6 +----- collects/typed-scheme/optimizer/pair.rkt | 5 ++--- collects/typed-scheme/optimizer/sequence.rkt | 5 ++--- collects/typed-scheme/optimizer/string.rkt | 4 ++-- collects/typed-scheme/optimizer/struct.rkt | 5 +---- collects/typed-scheme/optimizer/utils.rkt | 4 ++-- collects/typed-scheme/optimizer/vector.rkt | 4 ++-- 14 files changed, 22 insertions(+), 36 deletions(-) diff --git a/collects/typed-scheme/optimizer/apply.rkt b/collects/typed-scheme/optimizer/apply.rkt index 7ed6191cac..e85c2dee3f 100644 --- a/collects/typed-scheme/optimizer/apply.rkt +++ b/collects/typed-scheme/optimizer/apply.rkt @@ -1,12 +1,7 @@ #lang scheme/base (require syntax/parse - syntax/id-table racket/dict - unstable/match racket/match (for-template scheme/unsafe/ops racket/base (prefix-in k: '#%kernel)) - (for-syntax racket/base) "../utils/utils.rkt" - (rep type-rep) - (types abbrev type-table utils subtype) (optimizer utils)) (provide apply-opt-expr) diff --git a/collects/typed-scheme/optimizer/box.rkt b/collects/typed-scheme/optimizer/box.rkt index a54d8d1bf3..7ad707e75b 100644 --- a/collects/typed-scheme/optimizer/box.rkt +++ b/collects/typed-scheme/optimizer/box.rkt @@ -1,11 +1,11 @@ #lang scheme/base (require syntax/parse - unstable/match racket/match + racket/match "../utils/utils.rkt" - (for-template scheme/base scheme/fixnum scheme/unsafe/ops) + (for-template scheme/base scheme/unsafe/ops) (rep type-rep) - (types abbrev type-table utils subtype) + (types type-table utils) (optimizer utils)) (provide box-opt-expr) diff --git a/collects/typed-scheme/optimizer/dead-code.rkt b/collects/typed-scheme/optimizer/dead-code.rkt index eb2c5ba78e..c6ba818078 100644 --- a/collects/typed-scheme/optimizer/dead-code.rkt +++ b/collects/typed-scheme/optimizer/dead-code.rkt @@ -2,7 +2,7 @@ (require syntax/parse (for-template scheme/base) - "../utils/utils.rkt" "../utils/tc-utils.rkt" + "../utils/utils.rkt" (types type-table) (optimizer utils)) diff --git a/collects/typed-scheme/optimizer/fixnum.rkt b/collects/typed-scheme/optimizer/fixnum.rkt index 5aefac8fa5..0573112c22 100644 --- a/collects/typed-scheme/optimizer/fixnum.rkt +++ b/collects/typed-scheme/optimizer/fixnum.rkt @@ -3,7 +3,7 @@ (require syntax/parse "../utils/utils.rkt" (for-template scheme/base scheme/fixnum scheme/unsafe/ops) - (types abbrev type-table utils subtype) + (types abbrev) (optimizer utils)) (provide fixnum-expr fixnum-opt-expr) diff --git a/collects/typed-scheme/optimizer/float.rkt b/collects/typed-scheme/optimizer/float.rkt index c367b7460d..f91ec25ad1 100644 --- a/collects/typed-scheme/optimizer/float.rkt +++ b/collects/typed-scheme/optimizer/float.rkt @@ -1,10 +1,10 @@ #lang scheme/base (require syntax/parse - syntax/id-table racket/dict racket/flonum + racket/dict racket/flonum (for-template scheme/base racket/flonum scheme/unsafe/ops) "../utils/utils.rkt" - (types abbrev type-table utils subtype) + (types abbrev) (optimizer utils fixnum)) (provide float-opt-expr float-coerce-expr) diff --git a/collects/typed-scheme/optimizer/inexact-complex.rkt b/collects/typed-scheme/optimizer/inexact-complex.rkt index 5bade6ccee..31bc734b4c 100644 --- a/collects/typed-scheme/optimizer/inexact-complex.rkt +++ b/collects/typed-scheme/optimizer/inexact-complex.rkt @@ -3,8 +3,8 @@ (require syntax/parse syntax/id-table scheme/dict "../utils/utils.rkt" racket/unsafe/ops (for-template scheme/base scheme/math racket/flonum scheme/unsafe/ops) - (types abbrev type-table utils subtype) - (optimizer utils float fixnum)) + (types abbrev) + (optimizer utils float)) (provide inexact-complex-opt-expr inexact-complex-arith-opt-expr diff --git a/collects/typed-scheme/optimizer/number.rkt b/collects/typed-scheme/optimizer/number.rkt index 5e051571e9..310eec3b3a 100644 --- a/collects/typed-scheme/optimizer/number.rkt +++ b/collects/typed-scheme/optimizer/number.rkt @@ -1,7 +1,7 @@ #lang scheme/base (require syntax/parse - (for-template scheme/base racket/flonum scheme/unsafe/ops) + (for-template scheme/base) "../utils/utils.rkt" (optimizer utils)) diff --git a/collects/typed-scheme/optimizer/optimizer.rkt b/collects/typed-scheme/optimizer/optimizer.rkt index d0e9550bc8..685e1a9e98 100644 --- a/collects/typed-scheme/optimizer/optimizer.rkt +++ b/collects/typed-scheme/optimizer/optimizer.rkt @@ -1,13 +1,9 @@ #lang scheme/base (require syntax/parse - syntax/id-table racket/dict racket/pretty - (for-template scheme/base - racket/flonum scheme/fixnum scheme/unsafe/ops - racket/private/for) + (for-template scheme/base) "../utils/utils.rkt" - (types abbrev type-table utils subtype) (optimizer utils number fixnum float inexact-complex vector string pair sequence box struct dead-code apply unboxed-let)) diff --git a/collects/typed-scheme/optimizer/pair.rkt b/collects/typed-scheme/optimizer/pair.rkt index 8bab0ab79d..6202645c84 100644 --- a/collects/typed-scheme/optimizer/pair.rkt +++ b/collects/typed-scheme/optimizer/pair.rkt @@ -1,12 +1,11 @@ #lang scheme/base (require syntax/parse - syntax/id-table racket/dict - unstable/match racket/match + racket/match (for-template scheme/base scheme/unsafe/ops) "../utils/utils.rkt" (rep type-rep) - (types abbrev type-table utils subtype) + (types type-table utils) (optimizer utils)) (provide pair-opt-expr) diff --git a/collects/typed-scheme/optimizer/sequence.rkt b/collects/typed-scheme/optimizer/sequence.rkt index 3d333acf28..f050e91eb2 100644 --- a/collects/typed-scheme/optimizer/sequence.rkt +++ b/collects/typed-scheme/optimizer/sequence.rkt @@ -1,12 +1,11 @@ #lang scheme/base (require syntax/parse - syntax/id-table racket/dict - unstable/match racket/match + racket/match (for-template scheme/base scheme/unsafe/ops) "../utils/utils.rkt" "../utils/tc-utils.rkt" (rep type-rep) - (types abbrev type-table utils subtype) + (types abbrev type-table utils) (optimizer utils string)) (provide sequence-opt-expr) diff --git a/collects/typed-scheme/optimizer/string.rkt b/collects/typed-scheme/optimizer/string.rkt index 18f09beea5..66ac4b6f53 100644 --- a/collects/typed-scheme/optimizer/string.rkt +++ b/collects/typed-scheme/optimizer/string.rkt @@ -1,9 +1,9 @@ #lang scheme/base (require syntax/parse - (for-template scheme/base racket/flonum scheme/unsafe/ops) + (for-template scheme/base scheme/unsafe/ops) "../utils/utils.rkt" - (types abbrev type-table utils subtype) + (types abbrev) (optimizer utils)) (provide string-opt-expr string-expr bytes-expr) diff --git a/collects/typed-scheme/optimizer/struct.rkt b/collects/typed-scheme/optimizer/struct.rkt index 48b02f0789..fac20889e7 100644 --- a/collects/typed-scheme/optimizer/struct.rkt +++ b/collects/typed-scheme/optimizer/struct.rkt @@ -1,12 +1,9 @@ #lang scheme/base (require syntax/parse - syntax/id-table racket/dict - unstable/match racket/match (for-template scheme/base scheme/unsafe/ops) "../utils/utils.rkt" - (rep type-rep) - (types abbrev type-table utils subtype) + (types type-table) (optimizer utils)) (provide struct-opt-expr) diff --git a/collects/typed-scheme/optimizer/utils.rkt b/collects/typed-scheme/optimizer/utils.rkt index 49c2765a6f..f442698c5c 100644 --- a/collects/typed-scheme/optimizer/utils.rkt +++ b/collects/typed-scheme/optimizer/utils.rkt @@ -2,9 +2,9 @@ (require unstable/match racket/match racket/dict syntax/id-table unstable/syntax - (for-template scheme/base racket/flonum scheme/fixnum scheme/unsafe/ops) "../utils/utils.rkt" - (types abbrev type-table utils subtype) + (for-template scheme/base) + (types type-table utils subtype) (rep type-rep)) (provide log-optimization *log-optimizations?* *log-optimizatons-to-log-file?* diff --git a/collects/typed-scheme/optimizer/vector.rkt b/collects/typed-scheme/optimizer/vector.rkt index dff88f054f..6e3195d9ae 100644 --- a/collects/typed-scheme/optimizer/vector.rkt +++ b/collects/typed-scheme/optimizer/vector.rkt @@ -1,11 +1,11 @@ #lang scheme/base (require syntax/parse - unstable/match racket/match + racket/match (for-template scheme/base racket/flonum scheme/unsafe/ops) "../utils/utils.rkt" (rep type-rep) - (types abbrev type-table utils subtype) + (types type-table utils) (optimizer utils)) (provide vector-opt-expr)