Removed useless requires.

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)

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)

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))
 

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)

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)

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)
+         (types abbrev)
-         (optimizer utils float fixnum))
+         (optimizer utils float))
 
 (provide inexact-complex-opt-expr
          inexact-complex-arith-opt-expr

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))
 

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
+         (for-template scheme/base)
-                       racket/flonum scheme/fixnum scheme/unsafe/ops
-                       racket/private/for)
          "../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))
 

collects/typed-scheme/optimizer/pair.rkt

@@ -1,12 +1,11 @@
 #lang scheme/base
 
 (require syntax/parse
-         syntax/id-table racket/dict
+         racket/match
-         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 utils)
          (optimizer utils))
 
 (provide pair-opt-expr)

collects/typed-scheme/optimizer/sequence.rkt

@@ -1,12 +1,11 @@
 #lang scheme/base
 
 (require syntax/parse
-         syntax/id-table racket/dict
+         racket/match
-         unstable/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)

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)

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 type-table)
-         (types abbrev type-table utils subtype)
          (optimizer utils))
 
 (provide struct-opt-expr)

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?*

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)