suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed useless requires.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-09-08 16:25:00 -04:00
parent 85550953c8
commit 6e5ea420a1
14 changed files with 22 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-scheme/optimizer/apply.rkt
View File

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

6
collects/typed-scheme/optimizer/box.rkt
View File

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

2
collects/typed-scheme/optimizer/dead-code.rkt
View File

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

2
collects/typed-scheme/optimizer/fixnum.rkt
View File

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

4
collects/typed-scheme/optimizer/float.rkt
View File

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

4
collects/typed-scheme/optimizer/inexact-complex.rkt
View File

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

2
collects/typed-scheme/optimizer/number.rkt
View File

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

6
collects/typed-scheme/optimizer/optimizer.rkt
View File

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

5
collects/typed-scheme/optimizer/pair.rkt
View File

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

5
collects/typed-scheme/optimizer/sequence.rkt
View File

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

4
collects/typed-scheme/optimizer/string.rkt
View File

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

5
collects/typed-scheme/optimizer/struct.rkt
View File

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

4
collects/typed-scheme/optimizer/utils.rkt
View File

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

4
collects/typed-scheme/optimizer/vector.rkt
View File

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