removed useless requires

original commit: c7f86d276c68b12e87dc46cef4a8e1b95538f88d
This commit is contained in:
Ryan Culpepper 2011-09-25 17:35:04 -06:00
parent 5faa598ff1
commit 02d8332600
44 changed files with 43 additions and 100 deletions

View File

@ -7,9 +7,8 @@
"html-properties.rkt" "html-properties.rkt"
scheme/list scheme/list
scheme/class scheme/class
scheme/contract racket/contract/base
setup/main-collects setup/main-collects
syntax/modresolve
(for-syntax scheme/base)) (for-syntax scheme/base))
;; ---------------------------------------- ;; ----------------------------------------

View File

@ -1,4 +1,4 @@
#lang scheme #lang racket/base
(require scribble/doclang scribble/base) (require scribble/doclang scribble/base)
(provide (all-from-out scribble/doclang (provide (all-from-out scribble/doclang
scribble/base)) scribble/base))

View File

@ -1,8 +1,7 @@
(module bnf mzscheme (module bnf mzscheme
(require "struct.rkt" (require "struct.rkt"
"decode.rkt" "decode.rkt"
mzlib/kw mzlib/kw)
mzlib/class)
(provide BNF (provide BNF
nonterm nonterm

View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require "private/provide-structs.rkt" (require "private/provide-structs.rkt"
scheme/serialize scheme/serialize
scheme/contract racket/contract/base
file/convertible) file/convertible)
;; ---------------------------------------- ;; ----------------------------------------

View File

@ -1,7 +1,5 @@
#lang scheme/base #lang scheme/base
(require "private/provide-structs.rkt")
(require "core.rkt"
"private/provide-structs.rkt")
(provide-structs (provide-structs
[part-index-desc ()]) [part-index-desc ()])

View File

@ -2,8 +2,7 @@
(require "core.rkt" (require "core.rkt"
"private/provide-structs.rkt" "private/provide-structs.rkt"
"decode-struct.rkt" "decode-struct.rkt"
scheme/contract racket/contract/base
scheme/class
scheme/list) scheme/list)
(define (pre-content? i) (define (pre-content? i)

View File

@ -1,7 +1,6 @@
#lang racket/base #lang racket/base
(require "struct.rkt" (require "decode.rkt"
"decode.rkt"
(for-syntax racket/base (for-syntax racket/base
syntax/kerncase)) syntax/kerncase))

View File

@ -1,8 +1,9 @@
#lang racket/base #lang racket/base
(require "manual.rkt" "struct.rkt" "scheme.rkt" "decode.rkt" (require "manual.rkt" "struct.rkt" "scheme.rkt" "decode.rkt"
racket/string racket/list racket/file racket/list
racket/sandbox racket/promise racket/port file/convertible file/convertible ;; attached into new namespace via anchor
racket/sandbox racket/promise racket/port
racket/gui/dynamic racket/gui/dynamic
(for-syntax racket/base)) (for-syntax racket/base))

View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require "private/provide-structs.rkt" (require "private/provide-structs.rkt"
scheme/contract) racket/contract/base)
(provide-structs (provide-structs
[body-id ([value string?])] [body-id ([value string?])]

View File

@ -26,7 +26,7 @@
;; rendering; they will also be rendered in turn until no more resources are ;; rendering; they will also be rendered in turn until no more resources are
;; created. ;; created.
(require racket/list racket/string scribble/text "xml.rkt") (require scribble/text)
;; default file, urls to it will point to its directory instead, and a ;; default file, urls to it will point to its directory instead, and a
;; /-suffixed path will render to this file ;; /-suffixed path will render to this file

View File

@ -1,8 +1,6 @@
#lang scheme/base #lang scheme/base
(require scribble/doclang (require scribble/doclang
scribble/core
(except-in scribble/base author) (except-in scribble/base author)
scribble/decode
scribble/jfp scribble/jfp
setup/main-collects setup/main-collects
"../private/defaults.rkt" "../private/defaults.rkt"

View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require "private/provide-structs.rkt" (require "private/provide-structs.rkt"
scheme/contract) racket/contract/base)
(provide-structs (provide-structs
[tex-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)))])] [tex-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)))])]

View File

@ -1,12 +1,10 @@
#lang scheme/base #lang scheme/base
(require "core.rkt" (require "core.rkt"
"latex-properties.rkt" "latex-properties.rkt"
"private/render-utils.rkt" "private/render-utils.rkt"
scheme/class scheme/class
scheme/runtime-path scheme/runtime-path
scheme/port scheme/port
scheme/path
scheme/string scheme/string
scheme/list scheme/list
setup/main-collects setup/main-collects

View File

@ -6,16 +6,15 @@
(prefix-in s/b: scribble/base) (prefix-in s/b: scribble/base)
scribble/decode scribble/decode
"../private/defaults.rkt" "../private/defaults.rkt"
(for-syntax racket/base racket/list)
setup/main-collects setup/main-collects
scribble/html-properties scribble/html-properties
scribble/latex-properties scribble/latex-properties
racket/stxparam racket/stxparam
net/ftp net/ftp
file/gunzip file/gunzip
(for-syntax racket/stxparam-exptime (for-syntax racket/base
racket/base racket/list
setup/dirs)) racket/stxparam-exptime))
(provide (except-out (all-from-out scribble/doclang) #%module-begin) (provide (except-out (all-from-out scribble/doclang) #%module-begin)
(all-from-out scribble/base) (all-from-out scribble/base)

View File

@ -1,4 +1,3 @@
#lang scheme #lang racket/base
(require scribble/private/lp) (require scribble/private/lp)
(provide chunk) (provide chunk)

View File

@ -3,7 +3,7 @@
(provide (except-out (all-from-out scheme/base) #%module-begin) (provide (except-out (all-from-out scheme/base) #%module-begin)
(rename-out [module-begin #%module-begin])) (rename-out [module-begin #%module-begin]))
(require (for-syntax scheme/base syntax/boundmap scheme/list syntax/kerncase (require (for-syntax scheme/base syntax/boundmap scheme/list
syntax/strip-context)) syntax/strip-context))
;; --- MF: bad hack for getting rid of comments ;; --- MF: bad hack for getting rid of comments

View File

@ -1,8 +1,7 @@
#lang scheme/base #lang scheme/base
(require "core.rkt" (require "core.rkt"
"private/provide-structs.rkt" "private/provide-structs.rkt"
scheme/contract) racket/contract/base)
(provide-structs (provide-structs
[module-path-index-desc ()] [module-path-index-desc ()]

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require racket/class racket/file racket/path racket/port) (require racket/class racket/file racket/path)
(provide make-indirect-renderer-mixin) (provide make-indirect-renderer-mixin)

View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require (for-syntax scheme/base syntax/boundmap scheme/list syntax/kerncase) (require (for-syntax scheme/base syntax/boundmap)
scribble/scheme scribble/decode scribble/manual scribble/struct) scribble/scheme scribble/decode scribble/manual scribble/struct)
(begin-for-syntax (begin-for-syntax

View File

@ -1,5 +1,5 @@
#lang scheme/base #lang scheme/base
(require scheme/contract (require racket/contract/base
"../decode.rkt" "../decode.rkt"
"../struct.rkt" "../struct.rkt"
"../basic.rkt" "../basic.rkt"

View File

@ -1,25 +1,15 @@
#lang scheme/base #lang scheme/base
(require "../decode.rkt" (require "../struct.rkt"
"../struct.rkt"
"../scheme.rkt" "../scheme.rkt"
"../search.rkt" "../search.rkt"
"../basic.rkt" "../basic.rkt"
"../manual-struct.rkt" "../manual-struct.rkt"
"manual-ex.rkt" "manual-ex.rkt"
scheme/string racket/contract/base
scheme/contract (for-syntax scheme/base)
scheme/list
scheme/class
scheme/stxparam
scheme/serialize
setup/main-collects
(for-syntax scheme/base
syntax/boundmap
syntax/kerncase)
(for-label scheme/base (for-label scheme/base
scheme/class)) scheme/class))
(provide definition-site (provide definition-site
libs->taglet libs->taglet
annote-exporting-library annote-exporting-library

View File

@ -9,14 +9,11 @@
scheme/serialize scheme/serialize
scheme/stxparam scheme/stxparam
"manual-utils.rkt" "manual-utils.rkt"
"manual-vars.rkt"
"manual-style.rkt" "manual-style.rkt"
"manual-scheme.rkt" "manual-scheme.rkt"
"manual-bind.rkt" "manual-bind.rkt"
"manual-method.rkt" "manual-method.rkt"
"manual-proc.rkt" "manual-proc.rkt"
"manual-ex.rkt"
scheme/string
scheme/list scheme/list
(for-syntax scheme/base) (for-syntax scheme/base)
(for-label scheme/base (for-label scheme/base

View File

@ -2,7 +2,6 @@
(require syntax/strip-context (require syntax/strip-context
syntax-color/module-lexer syntax-color/module-lexer
"../racket.rkt" "../racket.rkt"
"../core.rkt"
"../base.rkt" "../base.rkt"
"manual-scheme.rkt" "manual-scheme.rkt"
"manual-style.rkt" "manual-style.rkt"

View File

@ -2,23 +2,17 @@
(require "../decode.rkt" (require "../decode.rkt"
"../struct.rkt" "../struct.rkt"
"../scheme.rkt" "../scheme.rkt"
"../search.rkt"
"../basic.rkt" "../basic.rkt"
"../manual-struct.rkt" "../manual-struct.rkt"
"qsloc.rkt" "qsloc.rkt"
"manual-utils.rkt" "manual-utils.rkt"
"manual-vars.rkt" "manual-vars.rkt"
"manual-style.rkt"
"manual-scheme.rkt" "manual-scheme.rkt"
"manual-bind.rkt" "manual-bind.rkt"
"manual-method.rkt"
"manual-ex.rkt"
scheme/string
scheme/list scheme/list
(for-syntax scheme/base) (for-syntax scheme/base)
(for-label scheme/base)) (for-label scheme/base))
(provide defform defform* defform/subs defform*/subs defform/none (provide defform defform* defform/subs defform*/subs defform/none
defidform defidform/inline defidform defidform/inline
specform specform/subs specform specform/subs

View File

@ -6,8 +6,6 @@
"manual-ex.rkt" "manual-ex.rkt"
"manual-style.rkt" "manual-style.rkt"
"manual-scheme.rkt" "manual-scheme.rkt"
scheme/string
scheme/list
(for-syntax scheme/base) (for-syntax scheme/base)
(for-label scheme/base)) (for-label scheme/base))

View File

@ -1,8 +1,6 @@
#lang racket/base #lang racket/base
(require "../decode.rkt" (require "../struct.rkt"
"../struct.rkt"
"../scheme.rkt" "../scheme.rkt"
"../search.rkt"
"../basic.rkt" "../basic.rkt"
"../manual-struct.rkt" "../manual-struct.rkt"
(only-in "../core.rkt" (only-in "../core.rkt"

View File

@ -4,10 +4,8 @@
"../scheme.rkt" "../scheme.rkt"
"../search.rkt" "../search.rkt"
"../basic.rkt" "../basic.rkt"
(only-in "../core.rkt" make-style box-mode)
racket/list
"manual-utils.rkt"
"manual-style.rkt" "manual-style.rkt"
"manual-utils.rkt" ;; used via datum->syntax
(for-syntax racket/base) (for-syntax racket/base)
(for-label racket/base)) (for-label racket/base))

View File

@ -1,10 +1,8 @@
#lang scheme/base #lang scheme/base
(require "../html-properties.rkt" (require "../html-properties.rkt"
"../latex-properties.rkt" "../latex-properties.rkt"
"on-demand.rkt" "on-demand.rkt"
setup/main-collects setup/main-collects)
scheme/promise)
(provide scheme-properties) (provide scheme-properties)

View File

@ -11,7 +11,7 @@
"on-demand.rkt" "on-demand.rkt"
"manual-sprop.rkt" "manual-sprop.rkt"
racket/list racket/list
racket/contract racket/contract/base
racket/string) racket/string)
(provide (rename-out [hyperlink link]) (provide (rename-out [hyperlink link])

View File

@ -1,8 +1,7 @@
#lang scheme/base #lang scheme/base
(require scheme/contract (require racket/contract/base
"../decode.rkt" "../decode.rkt"
"../struct.rkt" "../struct.rkt"
"../basic.rkt"
"manual-utils.rkt" "manual-utils.rkt"
"manual-style.rkt") "manual-style.rkt")

View File

@ -1,17 +1,11 @@
#lang scheme/base #lang scheme/base
(require "../decode.rkt" (require "../decode.rkt"
"../struct.rkt" "../struct.rkt"
"../scheme.rkt"
"../search.rkt"
"../basic.rkt"
"manual-utils.rkt"
"manual-vars.rkt" "manual-vars.rkt"
"manual-style.rkt"
"manual-scheme.rkt"
"manual-bind.rkt" "manual-bind.rkt"
"manual-ex.rkt" "manual-ex.rkt"
"manual-proc.rkt" "manual-proc.rkt"
scheme/contract racket/contract/base
(for-syntax scheme/base) (for-syntax scheme/base)
(for-label scheme/base)) (for-label scheme/base))

View File

@ -1,10 +1,9 @@
#lang scheme/base #lang scheme/base
(require "../struct.rkt" (require "../struct.rkt"
"../decode.rkt"
"../base.rkt" "../base.rkt"
(only-in "../core.rkt" (only-in "../core.rkt"
content?) content?)
scheme/contract racket/contract/base
scheme/list) scheme/list)
(provide doc-prefix) (provide doc-prefix)

View File

@ -6,7 +6,7 @@
make-style style-name make-style style-name
nested-flow? nested-flow-blocks nested-flow-style) nested-flow? nested-flow-blocks nested-flow-style)
"../html-properties.rkt" "../html-properties.rkt"
scheme/contract racket/contract/base
(for-syntax scheme/base (for-syntax scheme/base
syntax/kerncase syntax/kerncase
syntax/boundmap) syntax/boundmap)

View File

@ -1,4 +1,6 @@
#lang scheme #lang racket/base
(require racket/promise
(for-syntax racket/base))
(provide define-on-demand) (provide define-on-demand)
(define-syntax-rule (define-on-demand id rhs) (define-syntax-rule (define-on-demand id rhs)

View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require scheme/serialize (require scheme/serialize
scheme/contract racket/contract/base
(for-syntax scheme/base)) (for-syntax scheme/base))
(provide provide-structs) (provide provide-structs)

View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require scheme/system scheme/port scheme/promise) (require scheme/system scheme/port)
(provide run-pdflatex) (provide run-pdflatex)

View File

@ -4,10 +4,6 @@
"search.rkt" "search.rkt"
"private/manual-sprop.rkt" "private/manual-sprop.rkt"
"private/on-demand.rkt" "private/on-demand.rkt"
mzlib/class
mzlib/for
syntax/modresolve
syntax/modcode
file/convertible file/convertible
(for-syntax racket/base)) (for-syntax racket/base))

View File

@ -5,7 +5,7 @@
"xref.rkt" "xref.rkt"
racket/file racket/file
racket/class racket/class
racket/contract racket/contract/base
(prefix-in html: "html-render.rkt")) (prefix-in html: "html-render.rkt"))
(provide/contract (provide/contract

View File

@ -1,7 +1,6 @@
(module search racket/base (module search racket/base
(require "struct.rkt" (require "struct.rkt"
"basic.rkt" "basic.rkt"
setup/main-collects
syntax/modcode) syntax/modcode)
(provide find-racket-tag (provide find-racket-tag

View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require setup/main-collects (require setup/main-collects
scheme/contract racket/contract/base
scribble/core scribble/core
scribble/base scribble/base
scribble/decode scribble/decode

View File

@ -2,7 +2,6 @@
(require scribble/doclang (require scribble/doclang
scribble/core scribble/core
scribble/base scribble/base
scribble/decode
scribble/sigplan scribble/sigplan
racket/list racket/list
"../private/defaults.rkt" "../private/defaults.rkt"

View File

@ -1,6 +1,5 @@
#lang scheme/base #lang scheme/base
(require racket/contract/base
(require scheme/contract
(for-syntax scheme/base) (for-syntax scheme/base)
"provide-doc-transform.rkt") "provide-doc-transform.rkt")

View File

@ -7,7 +7,7 @@
"html-properties.rkt" "html-properties.rkt"
scheme/provide-syntax scheme/provide-syntax
scheme/struct-info scheme/struct-info
scheme/contract racket/contract/base
(for-syntax scheme/base)) (for-syntax scheme/base))
(define-provide-syntax (compat**-out stx) (define-provide-syntax (compat**-out stx)

View File

@ -1,15 +1,11 @@
#lang scheme/base #lang scheme/base
(require scribble/struct (require scribble/struct
scribble/manual-struct
scribble/decode-struct
scribble/base-render scribble/base-render
scribble/search scribble/search
(prefix-in html: scribble/html-render) (prefix-in html: scribble/html-render)
scheme/class scheme/class
mzlib/serialize scheme/path)
scheme/path
setup/main-collects)
(provide load-xref (provide load-xref
xref? xref?