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

removed extraneous requires

Browse Source 
svn: r7548
This commit is contained in:
Robby Findler 2007-10-21 22:57:12 +00:00
parent ae148e66c4
commit 018bc0e8f6
6 changed files with 9 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/private/contract-arr-obj-helpers.ss
View File

@ -1,8 +1,5 @@
(module contract-arr-obj-helpers mzscheme (module contract-arr-obj-helpers mzscheme
(require "contract-opt-guts.ss" (require (lib "stx.ss" "syntax")
"contract-helpers.ss"
(lib "list.ss")
(lib "stx.ss" "syntax")
(lib "name.ss" "syntax")) (lib "name.ss" "syntax"))
(require-for-template mzscheme (require-for-template mzscheme

5
collects/mzlib/private/contract-arrow.ss
View File

@ -1,14 +1,11 @@
(module contract-arrow mzscheme (module contract-arrow mzscheme
(require (lib "etc.ss") (require (lib "etc.ss")
(lib "list.ss")
"contract-guts.ss" "contract-guts.ss"
"contract-arr-checks.ss" "contract-arr-checks.ss"
"contract-opt.ss" "contract-opt.ss")
"contract-opt-guts.ss")
(require-for-syntax "contract-opt-guts.ss" (require-for-syntax "contract-opt-guts.ss"
"contract-helpers.ss" "contract-helpers.ss"
"contract-arr-obj-helpers.ss" "contract-arr-obj-helpers.ss"
(lib "list.ss")
(lib "stx.ss" "syntax") (lib "stx.ss" "syntax")
(lib "name.ss" "syntax")) (lib "name.ss" "syntax"))

3
collects/mzlib/private/contract-guts.ss
View File

@ -1,7 +1,6 @@
(module contract-guts mzscheme (module contract-guts mzscheme
(require "contract-helpers.ss" (require "contract-helpers.ss"
(lib "pretty.ss") (lib "pretty.ss"))
(lib "list.ss"))
(require-for-syntax "contract-helpers.ss") (require-for-syntax "contract-helpers.ss")

10
collects/mzlib/private/contract-object.ss
View File

@ -1,19 +1,13 @@
(module contract-object mzscheme (module contract-object mzscheme
(require (lib "etc.ss") (require (lib "etc.ss")
(lib "list.ss")
"contract-arrow.ss" "contract-arrow.ss"
"contract-guts.ss" "contract-guts.ss"
"contract-opt.ss"
"contract-opt-guts.ss"
"class-internal.ss" "class-internal.ss"
"contract-arr-checks.ss") "contract-arr-checks.ss")
(require-for-syntax "contract-opt-guts.ss" (require-for-syntax "contract-helpers.ss"
"contract-helpers.ss"
"contract-arr-obj-helpers.ss" "contract-arr-obj-helpers.ss"
(lib "list.ss") (lib "list.ss"))
(lib "stx.ss" "syntax")
(lib "name.ss" "syntax"))
(provide mixin-contract (provide mixin-contract
make-mixin-contract make-mixin-contract

3
collects/mzlib/private/contract-opt-guts.ss
View File

@ -1,7 +1,6 @@
(module contract-opt-guts mzscheme (module contract-opt-guts mzscheme
(require (lib "private/boundmap.ss" "syntax") (require (lib "private/boundmap.ss" "syntax")
(lib "list.ss") (lib "list.ss"))
"contract-guts.ss")
(require-for-template mzscheme) (require-for-template mzscheme)
(provide get-opter reg-opter! opter (provide get-opter reg-opter! opter

12
collects/mzlib/private/contract.ss
View File

@ -15,17 +15,11 @@ improve method arity mismatch contract violation error messages?
(require-for-syntax mzscheme (require-for-syntax mzscheme
"contract-opt-guts.ss" "contract-opt-guts.ss"
(lib "list.ss") (lib "list.ss")
(lib "stx.ss" "syntax") (lib "etc.ss"))
(lib "etc.ss")
(lib "name.ss" "syntax"))
(require (lib "etc.ss") (require "contract-arrow.ss"
(lib "list.ss")
(lib "pretty.ss")
"contract-arrow.ss"
"contract-guts.ss" "contract-guts.ss"
"contract-opt.ss" "contract-opt.ss")
"contract-opt-guts.ss")
(require "contract-helpers.ss") (require "contract-helpers.ss")
(require-for-syntax (prefix a: "contract-helpers.ss")) (require-for-syntax (prefix a: "contract-helpers.ss"))