Add racket/list' and racket/string' to the web language, adjust

existing requires.

(It's supposed to be a convenient language...)

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)

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)

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

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)
 

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

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)

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

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)

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

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

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

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