A lot of "DrScheme" -> "DrRacket"s.

original commit: de0cc7771b3f4be098cfa30e552f0acad3436a0e

collects/macro-debugger/model/deriv-util.rkt

@@ -1,7 +1,7 @@
 
 #lang scheme/base
 (require (for-syntax scheme/base)
-         (for-syntax scheme/private/struct-info)
+         (for-syntax racket/private/struct-info)
          scheme/list
          scheme/match
          unstable/struct

collects/macro-debugger/model/trace.rkt

@@ -115,7 +115,7 @@
          (begin
            (emit 'top-non-begin)
            (let ([e (expand-syntax e1)])
-             ;; Must set to void to avoid catching DrScheme's annotations...
+             ;; Must set to void to avoid catching DrRacket's annotations...
              (parameterize ((current-expand-observe void))
                (eval-compile-time-part e))
              e))]))

collects/macro-debugger/syntax-browser/display.rkt

@@ -19,12 +19,6 @@
       (current-inexact-milliseconds)
       0))
 
-(define eprintf
-  (if TIME-PRINTING?
-      (let ([eport (current-error-port)])
-        (lambda (fmt . args) (apply fprintf eport fmt args)))
-      void))
-
 ;; FIXME: assumes text never moves
 
 ;; print-syntax-to-editor : syntax text controller<%> config number number

collects/macro-debugger/syntax-browser/text.rkt

@@ -2,7 +2,7 @@
 (require scheme/list
          scheme/class
          scheme/gui
-         drscheme/arrow
+         drracket/arrow
          framework/framework
          unstable/interval-map
          unstable/gui/notify

collects/tests/macro-debugger/all-tests.rkt

@@ -1,6 +1,6 @@
 #lang scheme/base
-(require schemeunit
+(require racunit
-         schemeunit/gui)
+         racunit/gui)
 (require macro-debugger/model/debug
          "gentest-framework.ss"
          "gentests.ss"

collects/tests/macro-debugger/gentests.rkt

@@ -1,5 +1,5 @@
 #lang scheme/base
-(require schemeunit)
+(require racunit)
 (require macro-debugger/model/debug
          macro-debugger/model/stx-util
          "gentest-framework.ss"

collects/tests/macro-debugger/tests/collects.rkt

@@ -1,6 +1,6 @@
 #lang scheme/base
-(require schemeunit
+(require racunit
-         schemeunit/gui)
+         racunit/gui)
 (require macro-debugger/model/debug
          scheme/path
          scheme/gui)

collects/tests/macro-debugger/tests/hiding.rkt

@@ -1,5 +1,5 @@
 #lang scheme/base
-(require schemeunit)
+(require racunit)
 (require macro-debugger/model/debug
          "../test-setup.ss")
 (provide specialized-hiding-tests)

collects/tests/macro-debugger/tests/policy.rkt

@@ -1,5 +1,5 @@
 #lang scheme/base
-(require schemeunit)
+(require racunit)
 (require macro-debugger/model/debug
          "../test-setup.ss")
 (provide policy-tests)

collects/tests/macro-debugger/tests/regression.rkt

@@ -1,5 +1,5 @@
 #lang scheme/base
-(require schemeunit)
+(require racunit)
 (require macro-debugger/model/debug
          macro-debugger/model/steps
          "../test-setup.ss")

collects/unstable/find.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/contract
+(require racket/contract
          unstable/struct)
 
 (provide/contract

collects/unstable/scribblings/find.scrbl

@@ -1,20 +1,20 @@
 #lang scribble/manual
 @(require scribble/eval
-          "utils.ss"
+          "utils.rkt"
           (for-label unstable/find
-                     scheme/contract
+                     racket/contract
-                     scheme/shared
+                     racket/shared
-                     scheme/base))
+                     racket/base))
 
 @title[#:tag "find"]{Find}
 
 @(define the-eval (make-base-eval))
 @(the-eval '(require unstable/find))
-@(the-eval '(require scheme/shared))
+@(the-eval '(require racket/shared))
 
 @defmodule[unstable/find]
 
-@unstable[@author+email["Ryan Culpepper" "ryanc@plt-scheme.org"]]
+@unstable[@author+email["Ryan Culpepper" "ryanc@racket-lang.org"]]
 
 @defproc[(find [pred (-> any/c any/c)]
                [x any/c]
@@ -23,23 +23,23 @@
                [#:get-children get-children (or/c #f (-> any/c (or/c #f list?))) #f])
          list?]{
 
-Returns a list of all values satisfying @scheme[pred] contained in
+Returns a list of all values satisfying @racket[pred] contained in
-@scheme[x] (possibly including @scheme[x] itself). 
+@racket[x] (possibly including @racket[x] itself). 
 
-If @scheme[stop-on-found?] is true, the children of values satisfying
+If @racket[stop-on-found?] is true, the children of values satisfying
-@scheme[pred] are not examined. If @scheme[stop] is a procedure, then
+@racket[pred] are not examined. If @racket[stop] is a procedure, then
-the children of values for which @scheme[stop] returns true are not
+the children of values for which @racket[stop] returns true are not
-examined (but the values themselves are; @scheme[stop] is applied
+examined (but the values themselves are; @racket[stop] is applied
-after @scheme[pred]). Only the current branch of the search is
+after @racket[pred]). Only the current branch of the search is
 stopped, not the whole search.
 
 The search recurs through pairs, vectors, boxes, and the accessible
-fields of structures. If @scheme[get-children] is a procedure, it can
+fields of structures. If @racket[get-children] is a procedure, it can
 override the default notion of a value's children by returning a list
 (if it returns false, the default notion of children is used).
 
-No cycle detection is done, so @scheme[find] on a cyclic graph may
+No cycle detection is done, so @racket[find] on a cyclic graph may
-diverge. To do cycle checking yourself, use @scheme[stop] and a
+diverge. To do cycle checking yourself, use @racket[stop] and a
 mutable table.
 
 @examples[#:eval the-eval
@@ -63,8 +63,8 @@ mutable table.
                      [#:default default any/c (lambda () (error ....))])
          any/c]{
 
-Like @scheme[find], but only returns the first match. If no
+Like @racket[find], but only returns the first match. If no
-matches are found, @scheme[default] is applied as a thunk if it is a
+matches are found, @racket[default] is applied as a thunk if it is a
 procedure or returned otherwise.
 
 @examples[#:eval the-eval