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

removed useless requires

Browse Source 
original commit: c7f86d276c68b12e87dc46cef4a8e1b95538f88d
This commit is contained in:
Ryan Culpepper 2011-09-25 17:35:04 -06:00
parent 4d0895ccff
commit e3d2327c7c
46 changed files with 76 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/async-channel.rkt
View File

@ -1,4 +1,3 @@
#lang scheme/base #lang racket/base
(require racket/async-channel)
(require scheme/async-channel) (provide (all-from-out racket/async-channel))
(provide (all-from-out scheme/async-channel))

2
collects/mzlib/cm-accomplice.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
(require compiler/cm-accomplice) (require compiler/cm-accomplice)
(provide (all-from-out compiler/cm-accomplice)) (provide (all-from-out compiler/cm-accomplice))

2
collects/mzlib/cm.rkt
View File

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

2
collects/mzlib/cmdline.rkt
View File

@ -1,6 +1,6 @@
#lang mzscheme #lang mzscheme
(require (only scheme/cmdline parse-command-line)) (require (only racket/cmdline parse-command-line))
(provide command-line (provide command-line
parse-command-line) parse-command-line)

2
collects/mzlib/cml.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require racket/contract) (require racket/contract/base)
(define (spawn thunk) (define (spawn thunk)
(thread/suspend-to-kill thunk)) (thread/suspend-to-kill thunk))

2
collects/mzlib/contract.rkt
View File

@ -7,7 +7,7 @@
(require "private/contract-arrow.rkt") (require "private/contract-arrow.rkt")
(provide (all-from-out "private/contract-arrow.rkt")) (provide (all-from-out "private/contract-arrow.rkt"))
(require (only-in racket/contract unconstrained-domain->)) (require (only-in racket/contract/base unconstrained-domain->))
(provide unconstrained-domain->) (provide unconstrained-domain->)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2
collects/mzlib/date.rkt
View File

@ -3,7 +3,7 @@
racket/match racket/match
racket/list racket/list
racket/function racket/function
racket/contract) racket/contract/base)
(provide/contract (provide/contract
[current-date (-> date?)] [current-date (-> date?)]

10
collects/mzlib/etc.rkt
View File

@ -1,22 +1,18 @@
#lang mzscheme #lang mzscheme
(require setup/main-collects (require setup/main-collects
racket/local racket/local
racket/bool racket/bool
racket/block racket/block
(only racket/function (only racket/function
identity) identity)
(only scheme/base (only racket/base
build-string build-string
build-list build-list
build-vector build-vector
compose) compose)
(rename scheme/base base-else else) (rename racket/base base-else else))
"kw.rkt")
(require-for-syntax syntax/kerncase (require-for-syntax syntax/name
syntax/stx
syntax/name
setup/main-collects setup/main-collects
"private/stxset.rkt") "private/stxset.rkt")

6
collects/mzlib/file.rkt
View File

@ -1,6 +1,6 @@
(module file scheme/base (module file racket/base
(require scheme/file (require racket/file
scheme/path racket/path
(prefix-in mz: (only-in mzscheme (prefix-in mz: (only-in mzscheme
open-input-file open-input-file
open-output-file))) open-output-file)))

2
collects/mzlib/for.rkt
View File

@ -1,4 +1,4 @@
(module for scheme/base (module for racket/base
(provide for/fold for*/fold (provide for/fold for*/fold
for for* for for*
for/list for*/list for/list for*/list

3
collects/mzlib/foreign.rkt
View File

@ -1,4 +1,3 @@
(module foreign racket/base
(module foreign scheme/base
(require scheme/foreign) (require scheme/foreign)
(provide (all-from-out scheme/foreign))) (provide (all-from-out scheme/foreign)))

4
collects/mzlib/inflate.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base #lang racket/base
(require (for-syntax scheme/base)) (require (for-syntax racket/base))
(provide inflate (provide inflate
gunzip-through-ports gunzip-through-ports

4
collects/mzlib/integer-set.rkt
View File

@ -1,6 +1,6 @@
(module integer-set mzscheme (module integer-set mzscheme
(require (all-except mzlib/list merge) (require (only racket/base foldr)
racket/contract) racket/contract/base)
#;(define-syntax test-block #;(define-syntax test-block
(syntax-rules () (syntax-rules ()

4
collects/mzlib/list.rkt
View File

@ -1,9 +1,9 @@
#lang scheme/base #lang racket/base
;; The `first', etc. operations in this library ;; The `first', etc. operations in this library
;; work on pairs, not lists. ;; work on pairs, not lists.
(require (only-in scheme/list (require (only-in racket/list
cons? cons?
empty? empty?
empty empty

7
collects/mzlib/math.rkt
View File

@ -1,6 +1,5 @@
(module math racket/base
(module math scheme/base (require racket/math)
(require scheme/math) (provide (all-from-out racket/math)
(provide (all-from-out scheme/math)
e) e)
(define e (exp 1.0))) (define e (exp 1.0)))

2
collects/mzlib/md5.rkt
View File

@ -1,3 +1,3 @@
#lang scheme/base #lang racket/base
(require file/md5) (require file/md5)
(provide (all-from-out file/md5)) (provide (all-from-out file/md5))

2
collects/mzlib/plt-match.rkt
View File

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

1
collects/mzlib/port.rkt
View File

@ -2,7 +2,6 @@
(require (for-syntax racket/base) (require (for-syntax racket/base)
racket/contract/base racket/contract/base
mzlib/list
"private/port.rkt") "private/port.rkt")
(define (input-port-with-progress-evts? ip) (define (input-port-with-progress-evts? ip)

2
collects/mzlib/pregexp.rkt
View File

@ -7,7 +7,7 @@
;; this is mostly a wrapper module. ;; this is mostly a wrapper module.
(module pregexp mzscheme (module pregexp mzscheme
(require mzlib/string (require (only racket/base regexp-quote regexp-split)
mzlib/kw) mzlib/kw)
(provide pregexp (provide pregexp
pregexp-match-positions pregexp-match-positions

6
collects/mzlib/pretty.rkt
View File

@ -1,3 +1,3 @@
(module pretty scheme/base (module pretty racket/base
(require scheme/pretty) (require racket/pretty)
(provide (all-from-out scheme/pretty))) (provide (all-from-out racket/pretty)))

3
collects/mzlib/private/contract-arr-checks.rkt
View File

@ -1,8 +1,7 @@
#lang racket/base #lang racket/base
(provide (all-defined-out)) (provide (all-defined-out))
(require racket/contract/private/guts (require racket/contract/private/blame
racket/contract/private/blame
racket/contract/private/misc) racket/contract/private/misc)
(define empty-case-lambda/c (define empty-case-lambda/c

6
collects/mzlib/private/contract-arr-obj-helpers.rkt
View File

@ -1,9 +1,9 @@
#lang scheme/base #lang racket/base
(require syntax/stx (require syntax/stx
syntax/name) syntax/name)
(require (for-syntax scheme/base)) (require (for-syntax racket/base))
(require (for-template scheme/base) (require (for-template racket/base)
(for-template racket/contract/private/guts (for-template racket/contract/private/guts
racket/contract/private/misc racket/contract/private/misc
racket/contract/private/prop racket/contract/private/prop

1
collects/mzlib/private/contract-object.rkt
View File

@ -7,7 +7,6 @@
"contract-arr-checks.rkt") "contract-arr-checks.rkt")
(require (for-syntax racket/base (require (for-syntax racket/base
racket/contract/private/helpers
"contract-arr-obj-helpers.rkt")) "contract-arr-obj-helpers.rkt"))
(provide object-contract) (provide object-contract)

3
collects/mzlib/private/package-helper.rkt
View File

@ -1,6 +1,5 @@
(module package-helper mzscheme (module package-helper mzscheme
(require syntax/stx (require syntax/boundmap)
syntax/boundmap)
(provide str str? str-renames str-all-renames make-str (provide str str? str-renames str-all-renames make-str
check-defn-context check-defn-context

2
collects/mzlib/private/sigutil.rkt
View File

@ -9,7 +9,7 @@
(require "sigmatch.rkt") (require "sigmatch.rkt")
(require "../unit200.rkt") (require "../unit200.rkt")
(require "../list.rkt") (require (only racket/base filter sort))
(define-struct signature (name ; sym (define-struct signature (name ; sym
src ; sym src ; sym

4
collects/mzlib/private/stxset.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base #lang racket/base
(require (for-syntax scheme/base (require (for-syntax racket/base
syntax/kerncase syntax/kerncase
syntax/context)) syntax/context))

2
collects/mzlib/private/unitidmap.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
;; Help Desk binding info: ;; Help Desk binding info:
(define (binding binder bound stx) (define (binding binder bound stx)

3
collects/mzlib/process.rkt
View File

@ -8,8 +8,7 @@
system/exit-code system/exit-code
system*/exit-code) system*/exit-code)
(require mzlib/port (require "private/streams.rkt")
"private/streams.rkt")
;; Helpers: ---------------------------------------- ;; Helpers: ----------------------------------------

9
collects/mzlib/runtime-path.rkt
View File

@ -1,12 +1,9 @@
(module runtime-path racket/base
(module runtime-path scheme/base
(require mzlib/etc (require mzlib/etc
syntax/modcollapse
setup/dirs setup/dirs
scheme/list racket/list
scheme/string
(only-in "private/runtime-path-table.rkt" table) (only-in "private/runtime-path-table.rkt" table)
(for-syntax scheme/base)) (for-syntax racket/base))
(provide define-runtime-path (provide define-runtime-path
define-runtime-paths define-runtime-paths

4
collects/mzlib/sendevent.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base #lang racket/base
(require scheme/gui/dynamic) (require racket/gui/dynamic)
(provide send-event) (provide send-event)

5
collects/mzlib/serialize.rkt
View File

@ -1,9 +1,6 @@
(module serialize mzscheme (module serialize mzscheme
(require-for-syntax syntax/struct) (require-for-syntax syntax/struct)
(require syntax/modcollapse (require ;; core [de]serializer:
mzlib/etc
mzlib/list
;; core [de]serializer:
racket/private/serialize) racket/private/serialize)
(provide define-serializable-struct (provide define-serializable-struct

10
collects/mzlib/shared.rkt
View File

@ -1,11 +1,9 @@
#lang scheme/base #lang racket/base
(require (for-syntax racket/base
(require (for-syntax scheme/base
syntax/stx
syntax/kerncase syntax/kerncase
syntax/struct syntax/struct
racket/struct-info racket/struct-info
scheme/include)) racket/include))
(provide shared) (provide shared)
@ -13,7 +11,7 @@
(#%variable-reference))) (#%variable-reference)))
(define undefined (letrec ([x x]) x)) (define undefined (letrec ([x x]) x))
(require (only-in scheme/base [cons the-cons])) (require (only-in racket/base [cons the-cons]))
(define-syntax shared (define-syntax shared
(lambda (stx) (lambda (stx)

2
collects/mzlib/string.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
(provide string-lowercase! (provide string-lowercase!
string-uppercase! string-uppercase!

2
collects/mzlib/struct.rkt
View File

@ -6,7 +6,7 @@
define-struct/properties define-struct/properties
make-->vector) make-->vector)
(require-for-syntax syntax/struct (require-for-syntax syntax/struct
"list.rkt" (only racket/base filter)
syntax/stx) syntax/stx)
;; ------------------------------------------------------------ ;; ------------------------------------------------------------

7
collects/mzlib/stxparam.rkt
View File

@ -1,9 +1,8 @@
(module stxparam racket/base
(module stxparam scheme/base (require racket/stxparam)
(require scheme/stxparam)
(provide define-syntax-parameter (provide define-syntax-parameter
syntax-parameterize) syntax-parameterize)
(require scheme/stxparam-exptime) (require racket/stxparam-exptime)
(provide syntax-parameter-value (provide syntax-parameter-value
make-parameter-rename-transformer)) make-parameter-rename-transformer))

6
collects/mzlib/surrogate.rkt
View File

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

2
collects/mzlib/tar.rkt
View File

@ -1,3 +1,3 @@
#lang scheme/base #lang racket/base
(require file/tar) (require file/tar)
(provide (all-from-out file/tar)) (provide (all-from-out file/tar))

2
collects/mzlib/traceld.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
(let ([load (current-load)] (let ([load (current-load)]
[load-extension (current-load-extension)] [load-extension (current-load-extension)]

6
collects/mzlib/trait.rkt
View File

@ -1,3 +1,3 @@
(module trait scheme/base (module trait racket/base
(require scheme/trait) (require racket/trait)
(provide (all-from-out scheme/trait))) (provide (all-from-out racket/trait)))

2
collects/mzlib/unit-exptime.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
(require "private/unit-syntax.rkt" (require "private/unit-syntax.rkt"
"private/unit-compiletime.rkt") "private/unit-compiletime.rkt")

16
collects/mzlib/unit.rkt
View File

@ -1,25 +1,23 @@
#lang scheme/base #lang racket/base
(require (for-syntax scheme/base (require (for-syntax racket/base
scheme/list
syntax/boundmap syntax/boundmap
syntax/context syntax/context
syntax/kerncase syntax/kerncase
syntax/name syntax/name
syntax/parse syntax/parse
syntax/struct syntax/struct
scheme/struct-info racket/struct-info
syntax/stx syntax/stx
syntax/location syntax/location
"private/unit-contract-syntax.rkt" "private/unit-contract-syntax.rkt"
"private/unit-compiletime.rkt" "private/unit-compiletime.rkt"
"private/unit-syntax.rkt")) "private/unit-syntax.rkt"))
(require mzlib/etc (require racket/block
racket/contract/base racket/contract/base
racket/contract/region racket/contract/region
racket/contract/combinator racket/stxparam
scheme/stxparam
syntax/location syntax/location
"private/unit-contract.rkt" "private/unit-contract.rkt"
"private/unit-keywords.rkt" "private/unit-keywords.rkt"
@ -1154,7 +1152,7 @@
(apply append (map do-one ids tmps))))] (apply append (map do-one ids tmps))))]
[else (list defn-or-expr)])) [else (list defn-or-expr)]))
expanded-body))]) expanded-body))])
#'(begin-with-definitions defn-or-expr ...)))))))) #'(block defn-or-expr ...))))))))
(define-for-syntax (redirect-imports/exports import?) (define-for-syntax (redirect-imports/exports import?)
(lambda (table-stx (lambda (table-stx

2
collects/mzlib/unit200.rkt
View File

@ -7,7 +7,7 @@
syntax/name syntax/name
syntax/context syntax/context
racket/syntax racket/syntax
"list.rkt" (only racket/base filter)
"private/unitidmap.rkt") "private/unitidmap.rkt")
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------

1
collects/mzlib/unitsig200.rkt
View File

@ -9,7 +9,6 @@
(require "private/sigmatch.rkt") (require "private/sigmatch.rkt")
(require-for-syntax "private/sigutil.rkt") (require-for-syntax "private/sigutil.rkt")
(require-for-syntax "private/sigmatch.rkt")
(require-for-syntax syntax/kerncase) (require-for-syntax syntax/kerncase)
(define-struct signed-unit (unit imports exports)) (define-struct signed-unit (unit imports exports))

2
collects/mzlib/zip.rkt
View File

@ -1,7 +1,7 @@
;; A modification of Dave Herman's zip module ;; A modification of Dave Herman's zip module
(module zip mzscheme (module zip mzscheme
(require mzlib/deflate mzlib/file mzlib/kw) (require mzlib/deflate racket/file mzlib/kw)
;; =========================================================================== ;; ===========================================================================
;; DATA DEFINITIONS ;; DATA DEFINITIONS

2
collects/racket/private/old-procs.rkt
View File

@ -2,8 +2,6 @@
(module old-procs '#%kernel (module old-procs '#%kernel
(#%require "small-scheme.rkt" (#%require "small-scheme.rkt"
"more-scheme.rkt" "more-scheme.rkt"
"misc.rkt"
"stxmz-body.rkt"
"define.rkt") "define.rkt")
(#%provide make-namespace (#%provide make-namespace

2
collects/racket/private/stxmz-body.rkt
View File

@ -2,7 +2,7 @@
;; mzscheme's `#%module-begin' ;; mzscheme's `#%module-begin'
(module stxmz-body '#%kernel (module stxmz-body '#%kernel
(#%require "stxcase-scheme.rkt" "define.rkt" (#%require "define.rkt"
(for-syntax '#%kernel "stx.rkt")) (for-syntax '#%kernel "stx.rkt"))
;; So that expansions print the way the Racket programmer expects: ;; So that expansions print the way the Racket programmer expects: