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:
Ryan Culpepper 2011-09-25 17:35:04 -06:00
parent 755cedc5ef
commit c7f86d276c
275 changed files with 333 additions and 572 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/data/heap.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require racket/contract
(require racket/contract/base
racket/vector
racket/match)

2
collects/data/interval-map.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
;; owned by ryanc
(require racket/contract
(require racket/contract/base
racket/promise
racket/dict
data/splay-tree)

6
collects/data/queue.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require (for-syntax racket/base
(require racket/contract/base
(for-syntax racket/base
unstable/wrapc))
;; A Queue contains a linked list with mutable cdrs, holding two pointers
@ -82,8 +82,6 @@
;; --- contracts ---
(require racket/contract)
(define queue/c
(flat-named-contract "queue" queue?))

2
collects/data/skip-list.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require racket/match
racket/contract
racket/contract/base
racket/dict
"order.rkt")
;; owned by ryanc

2
collects/data/splay-tree.rkt
View File

@ -3,7 +3,7 @@
racket/syntax)
racket/match
racket/dict
racket/contract
racket/contract/base
"order.rkt")
#|

2
collects/db/scribblings/tabbing.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require scribble/struct
scribble/basic)
scribble/base)
(provide & // tabbing)
(define-struct tabbing-marker (kind) #:transparent)

2
collects/db/util/datetime.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require racket/contract
(require racket/contract/base
racket/match
(prefix-in srfi: srfi/19)
"../private/generic/sql-data.rkt")

2
collects/db/util/geometry.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require racket/contract
(require racket/contract/base
"private/geometry.rkt")
(provide/contract

2
collects/db/util/postgresql.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require racket/contract
(require racket/contract/base
"geometry.rkt")
#|

3
collects/errortrace/errortrace-lib.rkt
View File

@ -6,9 +6,8 @@
(require "stacktrace.rkt"
"errortrace-key.rkt"
"private/utils.rkt"
racket/contract
racket/contract/base
racket/unit
racket/runtime-path
(for-template racket/base)
(for-syntax racket/base))

1
collects/framework/collapsed-snipclass-wxme.rkt
View File

@ -1,6 +1,5 @@
#lang racket/base
(require racket/class
racket/snip
wxme)
(provide reader)

6
collects/framework/gui-utils.rkt
View File

@ -1,7 +1,7 @@
#lang at-exp scheme/base
#lang at-exp racket/base
(require string-constants scheme/gui/base
scheme/contract scheme/class)
(require string-constants racket/gui/base
racket/contract/base racket/class)
(require scribble/srcdoc)
(require/doc scheme/base scribble/manual)

3
collects/framework/main.rkt
View File

@ -1,11 +1,10 @@
#lang at-exp racket/base
(require racket/contract
(require racket/contract/base
racket/unit
racket/class
racket/gui/base
mred/mred-unit
mred/mred-sig
framework/framework-unit
framework/private/sig
(for-syntax scheme/base)

4
collects/framework/preferences.rkt
View File

@ -26,8 +26,8 @@ the state transitions / contracts are:
|#
(require scribble/srcdoc racket/class
racket/contract racket/file)
(require scribble/srcdoc
racket/contract/base racket/file)
(require/doc racket/base scribble/manual (for-label racket/serialize))
(define-struct (exn:unknown-preference exn) ())

5
collects/framework/private/autosave.rkt
View File

@ -1,12 +1,11 @@
#lang scheme/unit
(require mzlib/class
scheme/file
(require racket/class
racket/file
"sig.rkt"
"../gui-utils.rkt"
"../preferences.rkt"
mred/mred-sig
mzlib/list
string-constants)
(import mred^

7
collects/framework/private/color-model.rkt
View File

@ -1,9 +1,6 @@
#lang scheme/unit
(require mzlib/class
"sig.rkt"
mred/mred-sig
mzlib/list)
(require "sig.rkt")
(import)
(export framework:color-model^)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

1
collects/framework/private/color-prefs.rkt
View File

@ -1,6 +1,5 @@
#lang scheme/unit
(require mzlib/class
mzlib/etc
mred
string-constants
"../preferences.rkt"

4
collects/framework/private/comment-box.rkt
View File

@ -2,9 +2,9 @@
(require (for-syntax scheme/base)
scheme/unit
scheme/class
racket/class
scheme/gui/base
scheme/runtime-path
racket/runtime-path
"sig.rkt"
"../decorated-editor-snip.rkt"
string-constants)

3
collects/framework/private/decorated-editor-snip.rkt
View File

@ -1,8 +1,7 @@
#lang scheme/base
(require scheme/gui/base
scheme/class)
racket/class)
(provide editor-snip:decorated%
editor-snip:decorated-snipclass%

2
collects/framework/private/editor.rkt
View File

@ -7,7 +7,7 @@
"../gui-utils.rkt"
mzlib/etc
mred/mred-sig
scheme/path)
racket/path)
(import mred^
[prefix autosave: framework:autosave^]

2
collects/framework/private/encode.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require racket/cmdline racket/string file/gzip file/gunzip net/base64)
(require racket/cmdline file/gzip file/gunzip net/base64)
(define do-lang? #f)

3
collects/framework/private/finder.rkt
View File

@ -1,11 +1,10 @@
#lang scheme/unit
(require string-constants
(prefix-in r: racket/gui/base)
"sig.rkt"
"../preferences.rkt"
mred/mred-sig
scheme/path)
racket/path)
(import mred^
[prefix keymap: framework:keymap^]

2
collects/framework/private/focus-table.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require racket/gui/base racket/class)
(require racket/gui/base)
(provide frame:lookup-focus-table
frame:set-focus-table)

4
collects/framework/private/frame.rkt
View File

@ -2,7 +2,7 @@
(require string-constants
racket/class
racket/contract
racket/contract/base
mzlib/include
"search.rkt"
"sig.rkt"
@ -12,7 +12,7 @@
framework/private/focus-table
mrlib/close-icon
mred/mred-sig
scheme/path)
racket/path)
(import mred^
[prefix group: framework:group^]

7
collects/framework/private/gen-standard-menus.rkt
View File

@ -1,8 +1,9 @@
#reader scribble/reader
#lang scheme
#lang racket/base
(provide main)
(require scheme/pretty
scheme/runtime-path)
(require racket/pretty
racket/match
racket/runtime-path)
(require "standard-menus-items.rkt")
(define-runtime-path here ".")

5
collects/framework/private/group.rkt
View File

@ -1,13 +1,12 @@
#lang scheme/unit
(require string-constants
mzlib/class
racket/class
"sig.rkt"
"../preferences.rkt"
"../gui-utils.rkt"
mred/mred-sig
mzlib/list
scheme/path)
racket/path)
(import mred^
[prefix application: framework:application^]

3
collects/framework/private/handler.rkt
View File

@ -1,13 +1,12 @@
#lang scheme/unit
(require mzlib/class
mzlib/list
mrlib/hierlist
"sig.rkt"
"../preferences.rkt"
"../gui-utils.rkt"
mred/mred-sig
scheme/path
racket/path
string-constants)
(import mred^

6
collects/framework/private/icon.rkt
View File

@ -2,9 +2,9 @@
(require (for-syntax scheme/base)
scheme/unit
scheme/promise
scheme/class
scheme/runtime-path
racket/promise
racket/class
racket/runtime-path
"bday.rkt"
"sig.rkt"
mred/mred-sig)

4
collects/framework/private/mode.rkt
View File

@ -2,8 +2,8 @@
(require (for-syntax scheme/base)
scheme/unit
scheme/class
scheme/surrogate
racket/class
racket/surrogate
"sig.rkt")
(provide mode@ surrogate-methods)

6
collects/framework/private/panel.rkt
View File

@ -2,10 +2,8 @@
(require mzlib/class
"sig.rkt"
mred/mred-sig
mzlib/list
mzlib/etc)
mred/mred-sig)
(import [prefix icon: framework:icon^]
mred^)
(export framework:panel^)

2
collects/framework/private/path-utils.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/unit
(require "sig.rkt" mred/mred-sig)
(require "sig.rkt")
(import)
(export framework:path-utils^)

3
collects/framework/private/preferences.rkt
View File

@ -34,8 +34,7 @@ the state transitions / contracts are:
"sig.rkt"
"../gui-utils.rkt"
"../preferences.rkt"
mred/mred-sig
mzlib/list)
mred/mred-sig)
(import mred^
[prefix exit: framework:exit^]

5
collects/framework/private/scheme.rkt
View File

@ -4,15 +4,14 @@
;; 6/30/95
(require string-constants
scheme/class
racket/class
mred/mred-sig
syntax-color/module-lexer
"collapsed-snipclass-helpers.rkt"
"sig.rkt"
"../gui-utils.rkt"
"../preferences.rkt"
scheme/match)
racket/match)
(import mred^
[prefix preferences: framework:preferences^]

4
collects/framework/private/search.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/contract
scheme/class
(require racket/contract/base
racket/class
scheme/gui/base)
(provide/contract

2
collects/framework/private/text.rkt
View File

@ -1,7 +1,6 @@
#lang racket/unit
(require string-constants
racket/unit
racket/class
racket/match
racket/path
@ -10,7 +9,6 @@
"../preferences.rkt"
mred/mred-sig
mrlib/interactive-value-port
setup/dirs
racket/list)
(require setup/xref
scribble/xref

1
collects/framework/private/version.rkt
View File

@ -1,7 +1,6 @@
#lang scheme/unit
(require "sig.rkt"
mred/mred-sig
mzlib/string
mzlib/list)
(import)

8
collects/framework/test.rkt
View File

@ -1,6 +1,10 @@
#lang at-exp scheme/gui
#lang at-exp racket/base
(require scribble/srcdoc
(require racket/class
racket/contract/base
racket/gui/base
scribble/srcdoc
(for-syntax racket/base)
(prefix-in :: framework/private/focus-table))
(require/doc scheme/base scribble/manual
(for-label framework))

1
collects/macro-debugger/analysis/check-requires.rkt
View File

@ -3,7 +3,6 @@
racket/cmdline
racket/match
syntax/modcollapse
unstable/struct
"private/get-references.rkt"
"private/nom-use-alg.rkt"
"private/util.rkt")

1
collects/macro-debugger/analysis/private/moduledb.rkt
View File

@ -1,7 +1,6 @@
#lang racket/base
(require syntax/modresolve
setup/path-to-relative
"util.rkt"
racket/match)
(provide allow-bypass?
allow-drop?

2
collects/macro-debugger/expand.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require racket/contract
(require racket/contract/base
"model/trace.rkt"
"model/reductions-config.rkt"
"model/reductions.rkt")

2
collects/macro-debugger/model/reductions-config.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require (for-syntax racket/base)
racket/contract
racket/contract/base
racket/match
"../util/eomap.rkt"
"deriv-util.rkt"

2
collects/macro-debugger/model/reductions-engine.rkt
View File

@ -2,7 +2,7 @@
(require (for-syntax racket/base
syntax/parse
syntax/parse/experimental/contract)
racket/contract
racket/contract/base
syntax/stx
"deriv-util.rkt"
"stx-util.rkt"

2
collects/macro-debugger/stepper.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require racket/class
racket/contract
racket/contract/base
unstable/class-iop
"model/trace.rkt"
"view/interfaces.rkt"

1
collects/macro-debugger/syntax-browser/frame.rkt
View File

@ -1,7 +1,6 @@
#lang racket/base
(require racket/class
racket/gui/base
racket/list
unstable/class-iop
"interfaces.rkt"
"partition.rkt"

2
collects/macro-debugger/syntax-browser/image.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require racket/contract
(require racket/contract/base
racket/class
racket/gui/base
framework

3
collects/macro-debugger/syntax-browser/interfaces.rkt
View File

@ -1,6 +1,5 @@
#lang racket/base
(require racket/class
unstable/class-iop
(require unstable/class-iop
(for-syntax racket/base))
(provide (all-defined-out))

2
collects/macro-debugger/syntax-browser/prefs.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require racket/class
framework
framework/preferences
"interfaces.rkt"
unstable/gui/notify
unstable/gui/prefs)

3
collects/macro-debugger/syntax-browser/pretty-printer.rkt
View File

@ -1,6 +1,5 @@
#lang racket/base
(require racket/list
racket/class
(require racket/class
racket/pretty
racket/gui/base
racket/promise

2
collects/macro-debugger/syntax-browser/text.rkt
View File

@ -3,7 +3,7 @@
racket/gui/base
data/interval-map
drracket/arrow
framework/framework
framework
data/interval-map
"interfaces.rkt")

2
collects/macro-debugger/util/eomap.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require racket/contract
(require racket/contract/base
racket/dict
racket/match)

2
collects/macro-debugger/util/stxobj.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require (rename-in racket/contract [-> c:->])
(require (rename-in racket/contract/base [-> c:->])
ffi/unsafe)
(define lib (ffi-lib #f))

2
collects/macro-debugger/view/prefs.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require racket/class
framework
framework/preferences
"interfaces.rkt"
"../syntax-browser/prefs.rkt"
unstable/gui/notify

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

8
collects/mzlib/compile.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require scheme/function
scheme/path
scheme/file
#lang racket/base
(require racket/function
racket/path
racket/file
unstable/file)
(provide compile-file)

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

4
collects/mzlib/pconvert.rkt
View File

@ -1,8 +1,8 @@
(module pconvert mzscheme
(require (only "list.rkt" sort)
scheme/mpair
(require (only racket/base sort)
racket/mpair
"pconvert-prop.rkt"
"class.rkt")

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

10
collects/mzlib/private/unit-compiletime.rkt
View File

@ -1,13 +1,11 @@
#lang scheme/base
#lang racket/base
(require scheme/list
syntax/boundmap
(require syntax/boundmap
"unit-syntax.rkt")
(require (for-syntax scheme/base))
(require (for-template scheme/base
(require (for-syntax racket/base))
(require (for-template racket/base
"unit-keywords.rkt"
"unit-runtime.rkt"))
(require racket/private/define-struct)
(provide (struct-out var-info)
(struct-out signature)

2
collects/mzlib/private/unit-contract-syntax.rkt
View File

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

4
collects/mzlib/private/unit-keywords.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base
(require (for-syntax scheme/base))
#lang racket/base
(require (for-syntax racket/base))
(provide only except prefix rename tag
import export init-depend link

4
collects/mzlib/private/unit-runtime.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base
#lang racket/base
(require (for-syntax "unit-syntax.rkt" scheme/base))
(require (for-syntax "unit-syntax.rkt" racket/base))
(provide define-syntax/err-param
undefined (rename-out [make-a-unit make-unit]) unit-import-sigs unit-export-sigs unit-go unit? unit-deps
check-unit check-no-imports check-sigs check-deps check-helper)

2
collects/mzlib/private/unit-syntax.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base
#lang racket/base
(require syntax/stx)
(require (for-template "unit-keywords.rkt"))

4
collects/mzlib/private/unit-utils.rkt
View File

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

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

2
collects/mzlib/restart.rkt
View File

@ -1,6 +1,6 @@
(module restart scheme/base
(require "cmdline.rkt")
(require racket/cmdline)
(provide restart-mzscheme)

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

Some files were not shown because too many files have changed in this diff Show More