From badf2bd19e4afd49a8b66311f51f7f83ce14d2a1 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 22 Dec 2015 16:26:17 -0600 Subject: [PATCH] audit requires of files that require misc.rkt in racket/contract --- racket/collects/racket/contract/private/arr-i-parse.rkt | 1 - .../collects/racket/contract/private/arrow-higher-order.rkt | 2 -- racket/collects/racket/contract/private/arrow-val-first.rkt | 1 - racket/collects/racket/contract/private/arrow.rkt | 1 - racket/collects/racket/contract/private/base.rkt | 5 +---- racket/collects/racket/contract/private/box.rkt | 3 +-- racket/collects/racket/contract/private/ds.rkt | 3 +-- racket/collects/racket/contract/private/hash.rkt | 3 +-- racket/collects/racket/contract/private/opt.rkt | 1 - racket/collects/racket/contract/private/opters.rkt | 1 - racket/collects/racket/contract/private/parametric.rkt | 1 - racket/collects/racket/contract/private/provide.rkt | 4 ---- racket/collects/racket/contract/private/struct-prop.rkt | 3 +-- 13 files changed, 5 insertions(+), 24 deletions(-) diff --git a/racket/collects/racket/contract/private/arr-i-parse.rkt b/racket/collects/racket/contract/private/arr-i-parse.rkt index ab472d387c..ebbd1be11d 100644 --- a/racket/collects/racket/contract/private/arr-i-parse.rkt +++ b/racket/collects/racket/contract/private/arr-i-parse.rkt @@ -7,7 +7,6 @@ [module-identifier-mapping-get free-identifier-mapping-get] [module-identifier-mapping-put! free-identifier-mapping-put!] [module-identifier-mapping-for-each free-identifier-mapping-for-each]) - "application-arity-checking.rkt" "arr-util.rkt" (for-template racket/base "misc.rkt")) diff --git a/racket/collects/racket/contract/private/arrow-higher-order.rkt b/racket/collects/racket/contract/private/arrow-higher-order.rkt index 071b0667c9..7e7ac58481 100644 --- a/racket/collects/racket/contract/private/arrow-higher-order.rkt +++ b/racket/collects/racket/contract/private/arrow-higher-order.rkt @@ -8,8 +8,6 @@ "misc.rkt" "prop.rkt" "guts.rkt" - "generate.rkt" - racket/stxparam (prefix-in arrow: "arrow.rkt")) (provide (for-syntax build-chaperone-constructor/real) diff --git a/racket/collects/racket/contract/private/arrow-val-first.rkt b/racket/collects/racket/contract/private/arrow-val-first.rkt index 8cd4477632..a5ae6a5fe3 100644 --- a/racket/collects/racket/contract/private/arrow-val-first.rkt +++ b/racket/collects/racket/contract/private/arrow-val-first.rkt @@ -3,7 +3,6 @@ "application-arity-checking.rkt" "arr-util.rkt") "kwd-info-struct.rkt" - "arity-checking.rkt" "blame.rkt" "misc.rkt" "prop.rkt" diff --git a/racket/collects/racket/contract/private/arrow.rkt b/racket/collects/racket/contract/private/arrow.rkt index 38215e750f..c953a56775 100644 --- a/racket/collects/racket/contract/private/arrow.rkt +++ b/racket/collects/racket/contract/private/arrow.rkt @@ -4,7 +4,6 @@ "blame.rkt" "prop.rkt" "misc.rkt" - "generate.rkt" racket/stxparam racket/private/performance-hint) (require (for-syntax racket/base) diff --git a/racket/collects/racket/contract/private/base.rkt b/racket/collects/racket/contract/private/base.rkt index f9e8242b21..e2b49f0025 100644 --- a/racket/collects/racket/contract/private/base.rkt +++ b/racket/collects/racket/contract/private/base.rkt @@ -13,10 +13,7 @@ "guts.rkt" "blame.rkt" "prop.rkt" - "arrow.rkt" - "misc.rkt" - "generate.rkt" - ) + "generate.rkt") (begin-for-syntax (define lifted-key (gensym 'contract:lifted)) diff --git a/racket/collects/racket/contract/private/box.rkt b/racket/collects/racket/contract/private/box.rkt index d0461ca79c..0abccd0365 100644 --- a/racket/collects/racket/contract/private/box.rkt +++ b/racket/collects/racket/contract/private/box.rkt @@ -3,8 +3,7 @@ (require (for-syntax racket/base) "prop.rkt" "blame.rkt" - "guts.rkt" - "misc.rkt") + "guts.rkt") (provide box-immutable/c (rename-out [wrap-box/c box/c])) diff --git a/racket/collects/racket/contract/private/ds.rkt b/racket/collects/racket/contract/private/ds.rkt index 246fd1de5f..4341ec8bb6 100644 --- a/racket/collects/racket/contract/private/ds.rkt +++ b/racket/collects/racket/contract/private/ds.rkt @@ -20,8 +20,7 @@ it around flattened out. (require "guts.rkt" "prop.rkt" "blame.rkt" - "opt.rkt" - "misc.rkt") + "opt.rkt") (require (for-syntax racket/base) (for-syntax "ds-helpers.rkt") (for-syntax "helpers.rkt") diff --git a/racket/collects/racket/contract/private/hash.rkt b/racket/collects/racket/contract/private/hash.rkt index 3f3369fb9d..deaeb3578d 100644 --- a/racket/collects/racket/contract/private/hash.rkt +++ b/racket/collects/racket/contract/private/hash.rkt @@ -4,8 +4,7 @@ syntax/location "guts.rkt" "blame.rkt" - "prop.rkt" - "misc.rkt") + "prop.rkt") (provide (rename-out [wrap-hash/c hash/c]) hash/dc) diff --git a/racket/collects/racket/contract/private/opt.rkt b/racket/collects/racket/contract/private/opt.rkt index 4743434a71..f3f44d5e98 100644 --- a/racket/collects/racket/contract/private/opt.rkt +++ b/racket/collects/racket/contract/private/opt.rkt @@ -1,6 +1,5 @@ #lang racket/base (require "prop.rkt" - "misc.rkt" "blame.rkt" "guts.rkt" "base.rkt" diff --git a/racket/collects/racket/contract/private/opters.rkt b/racket/collects/racket/contract/private/opters.rkt index b1ef4d8dbe..d1e0104929 100644 --- a/racket/collects/racket/contract/private/opters.rkt +++ b/racket/collects/racket/contract/private/opters.rkt @@ -4,7 +4,6 @@ "guts.rkt" "arrow.rkt" "blame.rkt" - "misc.rkt" "arrow.rkt" "arrow-val-first.rkt" "orc.rkt" diff --git a/racket/collects/racket/contract/private/parametric.rkt b/racket/collects/racket/contract/private/parametric.rkt index 727ae8e344..34ac6bea4f 100644 --- a/racket/collects/racket/contract/private/parametric.rkt +++ b/racket/collects/racket/contract/private/parametric.rkt @@ -1,7 +1,6 @@ #lang racket/base (require "prop.rkt" "blame.rkt" - "misc.rkt" "guts.rkt" (for-syntax "arr-util.rkt" racket/base)) (provide parametric->/c) diff --git a/racket/collects/racket/contract/private/provide.rkt b/racket/collects/racket/contract/private/provide.rkt index 12055dcadc..f3f699fb61 100644 --- a/racket/collects/racket/contract/private/provide.rkt +++ b/racket/collects/racket/contract/private/provide.rkt @@ -26,14 +26,10 @@ [make-module-identifier-mapping make-free-identifier-mapping] [module-identifier-mapping-get free-identifier-mapping-get] [module-identifier-mapping-put! free-identifier-mapping-put!])) - "arrow.rkt" "arrow-val-first.rkt" "base.rkt" "guts.rkt" - "misc.rkt" "exists.rkt" - "opt.rkt" - "prop.rkt" "blame.rkt" syntax/location syntax/srcloc) diff --git a/racket/collects/racket/contract/private/struct-prop.rkt b/racket/collects/racket/contract/private/struct-prop.rkt index 10edb1961e..b468aa215f 100644 --- a/racket/collects/racket/contract/private/struct-prop.rkt +++ b/racket/collects/racket/contract/private/struct-prop.rkt @@ -1,8 +1,7 @@ #lang racket/base (require "guts.rkt" "blame.rkt" - "prop.rkt" - "misc.rkt") + "prop.rkt") (provide (rename-out [struct-type-property/c* struct-type-property/c])) (define (get-stpc-late-neg-proj stpc)