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 #lang racket/base
(require racket/contract (require racket/contract/base
racket/vector racket/vector
racket/match) racket/match)

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

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

6
collects/data/queue.rkt
View File

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -1,6 +1,5 @@
#lang racket/base #lang racket/base
(require racket/class (require racket/class
racket/snip
wxme) wxme)
(provide reader) (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 (require string-constants racket/gui/base
scheme/contract scheme/class) racket/contract/base racket/class)
(require scribble/srcdoc) (require scribble/srcdoc)
(require/doc scheme/base scribble/manual) (require/doc scheme/base scribble/manual)

3
collects/framework/main.rkt
View File

@ -1,11 +1,10 @@
#lang at-exp racket/base #lang at-exp racket/base
(require racket/contract (require racket/contract/base
racket/unit racket/unit
racket/class racket/class
racket/gui/base racket/gui/base
mred/mred-unit mred/mred-unit
mred/mred-sig
framework/framework-unit framework/framework-unit
framework/private/sig framework/private/sig
(for-syntax scheme/base) (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 (require scribble/srcdoc
racket/contract racket/file) racket/contract/base racket/file)
(require/doc racket/base scribble/manual (for-label racket/serialize)) (require/doc racket/base scribble/manual (for-label racket/serialize))
(define-struct (exn:unknown-preference exn) ()) (define-struct (exn:unknown-preference exn) ())

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -1,5 +1,5 @@
#lang racket/base #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) (define do-lang? #f)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -1,7 +1,6 @@
#lang scheme/unit #lang scheme/unit
(require "sig.rkt" (require "sig.rkt"
mred/mred-sig
mzlib/string mzlib/string
mzlib/list) mzlib/list)
(import) (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)) (prefix-in :: framework/private/focus-table))
(require/doc scheme/base scribble/manual (require/doc scheme/base scribble/manual
(for-label framework)) (for-label framework))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

8
collects/mzlib/compile.rkt
View File

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

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

4
collects/mzlib/pconvert.rkt
View File

@ -1,8 +1,8 @@
(module pconvert mzscheme (module pconvert mzscheme
(require (only "list.rkt" sort) (require (only racket/base sort)
scheme/mpair racket/mpair
"pconvert-prop.rkt" "pconvert-prop.rkt"
"class.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) (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))

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

@ -1,13 +1,11 @@
#lang scheme/base #lang racket/base
(require scheme/list (require syntax/boundmap
syntax/boundmap
"unit-syntax.rkt") "unit-syntax.rkt")
(require (for-syntax scheme/base)) (require (for-syntax racket/base))
(require (for-template scheme/base (require (for-template racket/base
"unit-keywords.rkt" "unit-keywords.rkt"
"unit-runtime.rkt")) "unit-runtime.rkt"))
(require racket/private/define-struct)
(provide (struct-out var-info) (provide (struct-out var-info)
(struct-out signature) (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 (require syntax/parse
"unit-compiletime.rkt" "unit-compiletime.rkt"

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

@ -1,5 +1,5 @@
#lang scheme/base #lang racket/base
(require (for-syntax scheme/base)) (require (for-syntax racket/base))
(provide only except prefix rename tag (provide only except prefix rename tag
import export init-depend link 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 (provide define-syntax/err-param
undefined (rename-out [make-a-unit make-unit]) unit-import-sigs unit-export-sigs unit-go unit? unit-deps 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) 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 syntax/stx)
(require (for-template "unit-keywords.rkt")) (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 syntax/boundmap
"unit-compiletime.rkt" "unit-compiletime.rkt"
"unit-syntax.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: ;; 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: ----------------------------------------

2
collects/mzlib/restart.rkt
View File

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

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

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