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
(require scheme/async-channel)
(provide (all-from-out scheme/async-channel))
#lang racket/base
(require racket/async-channel)
(provide (all-from-out racket/async-channel))

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

@ -1,4 +1,4 @@
#lang scheme/base
#lang racket/base
(require 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)
(provide (all-from-out compiler/cm))

2
collects/mzlib/cmdline.rkt
View File

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

2
collects/mzlib/cml.rkt
View File

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

2
collects/mzlib/contract.rkt
View File

@ -7,7 +7,7 @@
(require "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->)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2
collects/mzlib/date.rkt
View File

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

10
collects/mzlib/etc.rkt
View File

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

6
collects/mzlib/file.rkt
View File

@ -1,6 +1,6 @@
(module file scheme/base
(require scheme/file
scheme/path
(module file racket/base
(require racket/file
racket/path
(prefix-in mz: (only-in mzscheme
open-input-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
for for*
for/list for*/list

3
collects/mzlib/foreign.rkt
View File

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

4
collects/mzlib/inflate.rkt
View File

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

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

@ -1,6 +1,6 @@
(module integer-set mzscheme
(require (all-except mzlib/list merge)
racket/contract)
(require (only racket/base foldr)
racket/contract/base)
#;(define-syntax test-block
(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
;; work on pairs, not lists.
(require (only-in scheme/list
(require (only-in racket/list
cons?
empty?
empty

7
collects/mzlib/math.rkt
View File

@ -1,6 +1,5 @@
(module math scheme/base
(require scheme/math)
(provide (all-from-out scheme/math)
(module math racket/base
(require racket/math)
(provide (all-from-out racket/math)
e)
(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)
(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)
(provide (all-from-out racket/match/match))

1
collects/mzlib/port.rkt
View File

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

2
collects/mzlib/pregexp.rkt
View File

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

6
collects/mzlib/pretty.rkt
View File

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

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

@ -1,8 +1,7 @@
#lang racket/base
(provide (all-defined-out))
(require racket/contract/private/guts
racket/contract/private/blame
(require racket/contract/private/blame
racket/contract/private/misc)
(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
syntax/name)
(require (for-syntax scheme/base))
(require (for-template scheme/base)
(require (for-syntax racket/base))
(require (for-template racket/base)
(for-template racket/contract/private/guts
racket/contract/private/misc
racket/contract/private/prop

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

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

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

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

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

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

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

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

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

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

3
collects/mzlib/process.rkt
View File

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

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

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

4
collects/mzlib/sendevent.rkt
View File

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

5
collects/mzlib/serialize.rkt
View File

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

10
collects/mzlib/shared.rkt
View File

@ -1,11 +1,9 @@
#lang scheme/base
(require (for-syntax scheme/base
syntax/stx
#lang racket/base
(require (for-syntax racket/base
syntax/kerncase
syntax/struct
racket/struct-info
scheme/include))
racket/include))
(provide shared)
@ -13,7 +11,7 @@
(#%variable-reference)))
(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
(lambda (stx)

2
collects/mzlib/string.rkt
View File

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

2
collects/mzlib/struct.rkt
View File

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

7
collects/mzlib/stxparam.rkt
View File

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

6
collects/mzlib/surrogate.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base
#lang racket/base
(require scheme/surrogate)
(provide (all-from-out scheme/surrogate))
(require racket/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)
(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)]
[load-extension (current-load-extension)]

6
collects/mzlib/trait.rkt
View File

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

2
collects/mzlib/unit200.rkt
View File

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

1
collects/mzlib/unitsig200.rkt
View File

@ -9,7 +9,6 @@
(require "private/sigmatch.rkt")
(require-for-syntax "private/sigutil.rkt")
(require-for-syntax "private/sigmatch.rkt")
(require-for-syntax syntax/kerncase)
(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
(module zip mzscheme
(require mzlib/deflate mzlib/file mzlib/kw)
(require mzlib/deflate racket/file mzlib/kw)
;; ===========================================================================
;; DATA DEFINITIONS

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

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

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

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