Rackety

original commit: 6f9bcf00015433a8a781ab832247deaaa7307869

collects/framework/private/panel.rkt

@@ -1,4 +1,4 @@
-#lang scheme/unit
+#lang racket/unit
 
   (require mzlib/class
            "sig.ss"

collects/tests/framework/framework-test-engine.rkt

@@ -1,7 +1,8 @@
-
+#lang racket/base
-(module framework-test-engine mzscheme
 (require mzlib/pconvert
-	   mred
+         racket/tcp
+         racket/class
+         racket/gui/base
          "debug.ss")
 
 (define errs null)
@@ -19,8 +20,9 @@
         (get-output-string p))
       (format "uncaught exn: ~s" x)))
 
-  (namespace-require 'scheme/gui)
+(namespace-require 'racket/gui)
 
+(void
  (thread
   (lambda ()
     (with-handlers ([(lambda (x) #t)
@@ -59,7 +61,7 @@
                      out)
                     (newline out)
                     (flush-output out)
-		     (loop))))))))))
+                    (loop)))))))))))
 
 (let ([od (event-dispatch-handler)]
       [port (current-output-port)])
@@ -78,4 +80,4 @@
         (lambda ()
           (od evt)))))))
 
-  (yield (make-semaphore 0)))
+(yield (make-semaphore 0))

collects/tests/framework/main.rkt

@@ -1,8 +1,7 @@
-#lang mzscheme 
+#lang racket/base
 (require launcher
-         mzlib/cmdline
+         racket/cmdline
-         mzlib/list
+         racket/unit
-         mzlib/unitsig
          "debug.ss"
          "test-suite-utils.ss")
 

collects/tests/framework/panel.rkt

@@ -1,4 +1,4 @@
-#lang mzscheme
+#lang racket/base
 (require "test-suite-utils.ss")
 
 (test