diff --git a/collects/meta/web/build.rkt b/collects/meta/web/build.rkt index 95ac522d7f..48d00cf98f 100755 --- a/collects/meta/web/build.rkt +++ b/collects/meta/web/build.rkt @@ -7,8 +7,7 @@ exec "$exe" "$0" "$@" #lang racket/base -(require racket/cmdline racket/runtime-path racket/string racket/file - meta/web/html +(require racket/cmdline racket/runtime-path racket/file meta/web/html "common/distribute.rkt" "config.rkt" "navbar.rkt") (define build-mode #f) diff --git a/collects/meta/web/common/utils.rkt b/collects/meta/web/common/utils.rkt index c0b8a325da..9c5e92119d 100644 --- a/collects/meta/web/common/utils.rkt +++ b/collects/meta/web/common/utils.rkt @@ -1,6 +1,6 @@ #lang at-exp s-exp meta/web/html -(require racket/string (for-syntax scheme/base)) +(require (for-syntax scheme/base)) (provide in-here) (define-syntax (in-here stx) diff --git a/collects/meta/web/download/data.rkt b/collects/meta/web/download/data.rkt index 89381ac7fa..ec49d46bba 100644 --- a/collects/meta/web/download/data.rkt +++ b/collects/meta/web/download/data.rkt @@ -138,7 +138,7 @@ (struct-out installer) all-installers package->name platform->name suffix->name) -(require racket/list racket/file version/utils racket/runtime-path) +(require racket/file version/utils racket/runtime-path) ;; ---------------------------------------------------------------------------- diff --git a/collects/meta/web/download/download-pages.rkt b/collects/meta/web/download/download-pages.rkt index fdf539ca49..f46d2f9111 100644 --- a/collects/meta/web/download/download-pages.rkt +++ b/collects/meta/web/download/download-pages.rkt @@ -1,7 +1,6 @@ #lang at-exp s-exp "shared.rkt" -(require "data.rkt" "installer-pages.rkt" (prefix-in pre: "../stubs/pre.rkt") - racket/list) +(require "data.rkt" "installer-pages.rkt" (prefix-in pre: "../stubs/pre.rkt")) (provide render-download-page) diff --git a/collects/meta/web/download/index.rkt b/collects/meta/web/download/index.rkt index ce9e26367e..5dde68f9a0 100644 --- a/collects/meta/web/download/index.rkt +++ b/collects/meta/web/download/index.rkt @@ -1,6 +1,6 @@ #lang at-exp s-exp "shared.rkt" -(require racket/string "data.rkt" "../www/download.rkt") +(require "data.rkt" "../www/download.rkt") (define (in-ftp . paths) (string-join (cons "/var/ftp/pub/racket" paths) "/")) diff --git a/collects/meta/web/html/main.rkt b/collects/meta/web/html/main.rkt index aab0a8c226..7b05152723 100644 --- a/collects/meta/web/html/main.rkt +++ b/collects/meta/web/html/main.rkt @@ -7,9 +7,10 @@ ;; provide a `text' alias and an `include' alias (rename-out [begin/text text] [include/text include]) ;; main functionality - (all-from-out "xml.rkt" "html.rkt" "resource.rkt")) + (all-from-out "xml.rkt" "html.rkt" "resource.rkt" + racket/list racket/string)) -(require "xml.rkt" "html.rkt" "resource.rkt" +(require "xml.rkt" "html.rkt" "resource.rkt" racket/list racket/string scribble/text scribble/text/syntax-utils (for-syntax racket/base)) (define-syntax (top stx) diff --git a/collects/meta/web/minis/bugs.rkt b/collects/meta/web/minis/bugs.rkt index 82f6aa0a76..f8f2fb0010 100644 --- a/collects/meta/web/minis/bugs.rkt +++ b/collects/meta/web/minis/bugs.rkt @@ -42,7 +42,7 @@ @option[selected: 'true value: (caddr s)]{@(cadr s)} @option[value: (cadr s)]{@(car s)}))) -(require "../www/main.rkt" racket/string) +(require "../www/main.rkt") (define (cgi-link from . to) (apply symlink (format "/www/cgi-bin/~a" from) to)) diff --git a/collects/meta/web/minis/drracket.rkt b/collects/meta/web/minis/drracket.rkt index 66171462e5..550654bf6f 100644 --- a/collects/meta/web/minis/drracket.rkt +++ b/collects/meta/web/minis/drracket.rkt @@ -9,7 +9,7 @@ (define index (page #:title "DrRacket" #:extra-headers (delay headers) (center-div logo))) -(require racket/list (only-in "../www/main.rkt" main)) +(require (only-in "../www/main.rkt" main)) (define (logo) (define (text->lines text) diff --git a/collects/meta/web/www/index.rkt b/collects/meta/web/www/index.rkt index 81adf0280c..c1fab727aa 100644 --- a/collects/meta/web/www/index.rkt +++ b/collects/meta/web/www/index.rkt @@ -1,6 +1,6 @@ #lang at-exp s-exp "shared.rkt" -(require "code.rkt" "download.rkt" "learning.rkt" racket/string) +(require "code.rkt" "download.rkt" "learning.rkt") (define (doc s) (string-append "http://docs.racket-lang.org/" s)) diff --git a/collects/meta/web/www/learning.rkt b/collects/meta/web/www/learning.rkt index 4f52cf6e84..fe6142d00e 100644 --- a/collects/meta/web/www/learning.rkt +++ b/collects/meta/web/www/learning.rkt @@ -1,6 +1,6 @@ #lang at-exp s-exp "shared.rkt" -(require "people.rkt" "techreports.rkt" racket/list) +(require "people.rkt" "techreports.rkt") (provide learning) (define learning diff --git a/collects/meta/web/www/people.rkt b/collects/meta/web/www/people.rkt index 8ed487f2ef..0b4d2b14f9 100644 --- a/collects/meta/web/www/people.rkt +++ b/collects/meta/web/www/people.rkt @@ -63,8 +63,6 @@ (provide (struct-out place) all-places find-place (struct-out person) all-people find-person) -(require racket/list) - (define-values (all-places find-place all-people find-person) (let () (define places0 diff --git a/collects/meta/web/www/techreports.rkt b/collects/meta/web/www/techreports.rkt index b4693ed475..42a2c21af8 100644 --- a/collects/meta/web/www/techreports.rkt +++ b/collects/meta/web/www/techreports.rkt @@ -1,7 +1,7 @@ #lang at-exp s-exp "shared.rkt" -(require "bib.rkt" (prefix-in - version/utils) racket/list racket/string - "people.rkt" "../download/data.rkt") +(require "people.rkt" "../download/data.rkt" + "bib.rkt" (prefix-in - version/utils)) ;; New style TR entries -------------------------------------------------------