A bunch of scheme' -> racket' conversions.

I think that there are no user-visible changes from these changes.

original commit: 2b76d9e5b03ea97b8de155d2dda63e64256a3212

collects/mred/main.rkt

@@ -1,3 +1,3 @@
-(module main scheme/base
+(module main racket/base
   (require "mred.rkt")
   (provide (all-from-out "mred.rkt")))

collects/mred/mred-sig.rkt

@@ -1,4 +1,4 @@
-#lang scheme/signature
+#lang racket/signature
 
 add-color<%>
 add-editor-keymap-functions

collects/mred/private/dynamic.rkt

@@ -1,6 +1,6 @@
-#lang scheme/base
+#lang racket/base
 
-;; This module is for use by scheme/gui/dynamic.
+;; This module is for use by racket/gui/dynamic.
 ;; It is required by mred/mred so that it gets carried
 ;; along when mred/mred is attached to a new namespace.
 

collects/mred/private/lock.rkt

@@ -15,7 +15,7 @@
 ;;   The `atomically' form is ok for that if no exceptions will
 ;;   be raised. Otherwise, use the more heavyweight `as-entry'.
 ;;
-;; * The scheme/gui classes have internal-consistency requirements.
+;; * The racket/gui classes have internal-consistency requirements.
 ;;   When the user creates an object or calls a method, or when the
 ;;   system invokes a callback, many steps may be required to
 ;;   initialize or reset fields to maintain invariants. To ensure that

collects/mred/private/mred.rkt

@@ -3,7 +3,7 @@
                  define-namespace-anchor
                  namespace-anchor->empty-namespace
                  make-base-empty-namespace)
-           scheme/class
+           racket/class
            racket/draw racket/snip
            file/resource
            mzlib/etc

collects/mred/private/path-dialog.rkt

@@ -1,11 +1,11 @@
 (module path-dialog mzscheme
   (require mzlib/class mzlib/list mzlib/string mzlib/file
            (prefix wx: "kernel.rkt")
-	   (prefix wx: racket/snip/private/style)
+           (prefix wx: racket/snip/private/style)
            racket/snip/private/prefs
            "helper.rkt" "mrtop.rkt" "mritem.rkt" "mrpanel.rkt"
            "mrtextfield.rkt" "messagebox.rkt" "mrmenu.rkt"
-           (only scheme/base compose))
+           (only racket/base compose1))
   (provide path-dialog%)
 
   (define last-visted-directory #f)
@@ -46,9 +46,9 @@
       (lambda (p . more)
         (apply simplify-path (expand-path* p) more))))
 
-  (define directory-exists*? (compose directory-exists? expand-path*))
+  (define directory-exists*? (compose1 directory-exists? expand-path*))
-  (define file-exists*?      (compose file-exists? expand-path*))
+  (define file-exists*?      (compose1 file-exists? expand-path*))
-  (define absolute-path*?    (compose absolute-path? expand-path*))
+  (define absolute-path*?    (compose1 absolute-path? expand-path*))
 
   (define (build-path* dir path)
     (cond [(absolute-path*? path) (if (string? path) (string->path path) path)]

collects/mred/private/syntax.rkt

@@ -1,3 +1,3 @@
-#lang scheme/base
+#lang racket/base
 (require racket/draw/private/syntax)
 (provide (all-from-out racket/draw/private/syntax))

collects/mred/private/wx/cocoa/frame.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 (require ffi/unsafe/objc
          ffi/unsafe
-         scheme/class
+         racket/class
          "pool.rkt"
          "utils.rkt"
          "const.rkt"

collects/mred/private/wx/cocoa/list-box.rkt

@@ -2,7 +2,7 @@
 (require ffi/unsafe/objc
          ffi/unsafe
          racket/class
-         (only-in scheme/list take drop)
+         (only-in racket/list take drop)
           "../../syntax.rkt"
           "../../lock.rkt"
          "item.rkt"

collects/mred/private/wx/cocoa/menu.rkt

@@ -2,7 +2,7 @@
 (require racket/class
          ffi/unsafe
          ffi/unsafe/objc
-         (only-in scheme/list drop take)
+         (only-in racket/list drop take)
          "../common/event.rkt"
          "../../syntax.rkt"
          "../../lock.rkt"

collects/mred/private/wx/win32/menu-item.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require ffi/unsafe
-         scheme/class
+         racket/class
          "utils.rkt"
          "types.rkt"
          "const.rkt"

collects/mred/private/wxme/const.rkt

@@ -1,4 +1,4 @@
-#lang scheme/base
+#lang racket/base
 
 (provide (all-defined-out))
 

collects/mred/private/wxme/cycle.rkt

@@ -1,4 +1,4 @@
-#lang scheme/base
+#lang racket/base
 
 (define-syntax-rule (decl id set-id)
   (begin

collects/mred/private/wxme/editor-admin.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
          "../syntax.rkt"
          "private.rkt"
          racket/snip/private/private

collects/mred/private/wxme/editor-canvas.rkt

@@ -1,6 +1,6 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
-         scheme/file
+         racket/file
          "../syntax.rkt"
          "editor.rkt"
          "editor-admin.rkt"

collects/mred/private/wxme/editor-data.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 
-(require scheme/class
+(require racket/class
-         scheme/file file/convertible
+         racket/file file/convertible
          "../syntax.rkt"
          "private.rkt"
          racket/snip/private/snip-flags

collects/mred/private/wxme/editor-snip.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
          "../syntax.rkt"
          "private.rkt"
          racket/snip/private/private

collects/mred/private/wxme/editor.rkt

@@ -1,7 +1,7 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
-         (for-syntax scheme/base)
+         (for-syntax racket/base)
-         scheme/file
+         racket/file
          racket/port
          "../syntax.rkt"
          "private.rkt"

collects/mred/private/wxme/keymap.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
          "../syntax.rkt"
          "wx.rkt")
 

collects/mred/private/wxme/mline.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
          "../syntax.rkt"
          "const.rkt"
          racket/snip/private/snip

collects/mred/private/wxme/pasteboard.rkt

@@ -1,7 +1,7 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
-         scheme/port
+         racket/port
-         scheme/file
+         racket/file
          "../syntax.rkt"
          "const.rkt"
          "private.rkt"

collects/mred/private/wxme/private.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class)
+(require racket/class)
 
 (provide (all-defined-out))
 

collects/mred/private/wxme/standard-snip-admin.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
          "../syntax.rkt"
          racket/snip/private/snip
          racket/snip/private/snip-admin

collects/mred/private/wxme/stream.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
          "../syntax.rkt"
          "private.rkt"
          racket/snip/private/private

collects/mred/private/wxme/text.rkt

@@ -1,8 +1,8 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
-         scheme/port
+         racket/port
-         scheme/file
+         racket/file
-         (for-syntax scheme/base)
+         (for-syntax racket/base)
          "../syntax.rkt"
          "const.rkt"
          "mline.rkt"

collects/mred/private/wxme/undo.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
          "private.rkt"
          racket/snip/private/private
          racket/snip/private/snip

collects/mred/private/wxme/wordbreak.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
          "../syntax.rkt"
          "cycle.rkt")
 

collects/mred/private/wxme/wx.rkt

@@ -1,4 +1,4 @@
-#lang scheme/base
+#lang racket/base
 (require "../kernel.rkt" racket/draw/private/font-syms)
 
 (define the-clipboard (get-the-clipboard))

collects/racket/gui/init.rkt

@@ -1,4 +1,3 @@
-
 (module init scheme/gui
   (require scheme/init)