Switching to Racket

collects/meta/drdr/analyze.rkt

@@ -1,5 +1,5 @@
-#lang scheme
+#lang racket
-(require scheme/file
+(require racket/file
          "diff.rkt"
          "scm.rkt"
          "list-count.rkt"

collects/meta/drdr/archive-test.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "path-utils.rkt"
          "archive.rkt"
          tests/eli-tester)

collects/meta/drdr/archive.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "path-utils.rkt")
 
 (define (value->bytes v)

collects/meta/drdr/cache.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "path-utils.rkt")
 
 ; (symbols 'always 'cache 'no-cache)

collects/meta/drdr/cc.rkt

@@ -1,9 +1,9 @@
-#lang scheme
+#lang racket
 (require "path-utils.rkt"
          "run-collect.rkt"
          "replay.rkt"
-         scheme/runtime-path
+         racket/runtime-path
-         scheme/system)
+         racket/system)
 
 (match-define 
  (list* command real-args)

collects/meta/drdr/config.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 
 (require "cache.rkt"
          "dirstruct.rkt"

collects/meta/drdr/diff.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "status.rkt")
 
 (define (timing? bs)

collects/meta/drdr/diffcmd.rkt

@@ -1,5 +1,5 @@
-#lang scheme
+#lang racket
-(require scheme/system
+(require racket/system
          "dirstruct.rkt"
          "status.rkt"
          (except-in "diff.rkt"

collects/meta/drdr/dirstruct.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "path-utils.rkt")
 
 (define number-of-cpus

collects/meta/drdr/formats.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (define (formats v u)
   (if (equal? v -inf.0)
       "ε"

collects/meta/drdr/good-init.sh

@@ -2,7 +2,7 @@
 export PLTSTDERR="info"
 PLTROOT="/opt/plt/plt"
 LOGS="/opt/plt/logs"
-MZ="$PLTROOT/bin/racket"
+R="$PLTROOT/bin/racket"
 DRDR="/opt/svn/drdr"
 
 cd "$DRDR"

collects/meta/drdr/graph.rkt

@@ -1,5 +1,5 @@
-#lang scheme
+#lang racket
-(require scheme/system
+(require racket/system
          "config.rkt"
          "path-utils.rkt"
          "dirstruct.rkt")

collects/meta/drdr/graphs/build-graph.rkt

@@ -1,4 +1,4 @@
-#lang scheme/gui
+#lang racket/gui
 (require xml)
 
 (require "constants.rkt")

collects/meta/drdr/graphs/constants.rkt

@@ -1,4 +1,4 @@
-#lang scheme/base
+#lang racket/base
 (provide (all-defined-out))
 (define total-width 800)
 (define before-and-after-image-width 18)

collects/meta/drdr/graphs/mk-img.rkt

@@ -1,4 +1,4 @@
-#lang scheme/gui
+#lang racket/gui
 
 (require 2htdp/image
          "constants.rkt")

collects/meta/drdr/list-count.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 
 (define list/count
   (or/c exact-nonnegative-integer? (listof bytes?)))

collects/meta/drdr/main.rkt

@@ -1,6 +1,6 @@
-#lang scheme
+#lang racket
 
-(require scheme/system
+(require racket/system
          "dirstruct.rkt"
          "analyze.rkt"
          "monitor-scm.rkt"
@@ -35,7 +35,7 @@
      (lambda ()
        (system*/exit-code
         (path->string
-         (build-path (plt-directory) "plt" "bin" "mzscheme"))
+         (build-path (plt-directory) "plt" "bin" "racket"))
         "-t" 
         (path->string (build-path (drdr-directory) "time.rkt"))
         "--"
@@ -47,7 +47,7 @@
      (lambda ()
        (system*/exit-code
         (path->string
-         (build-path (plt-directory) "plt" "bin" "mzscheme"))
+         (build-path (plt-directory) "plt" "bin" "racket"))
         "-t" 
         (path->string (build-path (drdr-directory) "make-archive.rkt"))
         "--"

collects/meta/drdr/make-archive.rkt

@@ -1,5 +1,5 @@
-#lang scheme
+#lang racket
-(require scheme/system
+(require racket/system
          "config.rkt"
          "archive.rkt"
          "path-utils.rkt"

collects/meta/drdr/metadata.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "path-utils.rkt"
          "dirstruct.rkt"
          "scm.rkt")

collects/meta/drdr/monitor-scm.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "scm.rkt"
          "retry.rkt")
 

collects/meta/drdr/notify.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (define (notify! fmt . args)
   (log-info (format "[~a] ~a" (current-seconds) (apply format fmt args))))
 

collects/meta/drdr/path-utils.rkt

@@ -1,5 +1,5 @@
-#lang scheme
+#lang racket
-(require scheme/file)
+(require racket/file)
 
 (define current-temporary-directory
   (make-parameter #f))

collects/meta/drdr/plt-build.rkt

@@ -1,6 +1,6 @@
-#lang scheme
+#lang racket
-(require scheme/file
+(require racket/file
-         scheme/runtime-path
+         racket/runtime-path
          (planet jaymccarthy/job-queue)
          "metadata.rkt"
          "run-collect.rkt"
@@ -150,16 +150,12 @@
     (rebase-path trunk-dir log-dir))
   (define racket-path
     (path->string (build-path trunk-dir "bin" "racket")))
-  ; XXX fix
+  (define raco-path
-  (define mzc-path
+    (path->string (build-path trunk-dir "bin" "raco")))
-    (path->string (build-path trunk-dir "bin" "mzc")))
   (define gracket-text-path
     (path->string (build-path trunk-dir "bin" "gracket-text")))
   (define gracket-path
     (path->string (build-path trunk-dir "bin" "gracket")))
-  ; XXX fix
-  (define planet-path
-    (path->string (build-path trunk-dir "bin" "planet")))
   (define collects-pth
     (build-path trunk-dir "collects"))
   (define test-workers (make-job-queue (number-of-cpus)))
@@ -192,7 +188,7 @@
                                               [(list-rest (or 'mzscheme 'racket) rst)
                                                (lambda () (list* racket-path rst))]
                                               [(list-rest 'mzc rst)
-                                               (lambda () (list* mzc-path rst))]
+                                               (lambda () (list* raco-path "make" rst))]
                                               [(list-rest (or 'mred 'mred-text
                                                               'gracket 'gracket-text)
                                                           rst)
@@ -235,8 +231,8 @@
         #:timeout (current-make-install-timeout-seconds)
         #:env (current-env)
         (build-path log-dir "planet" auth pkg maj min)
-        planet-path 
+        raco-path 
-        (list "install" auth pkg maj min))]))
+        (list "planet" "install" auth pkg maj min))]))
   (run/collect/wait/log 
    #:timeout (current-subprocess-timeout-seconds)
    #:env (current-env)

collects/meta/drdr/render.rkt

@@ -1,6 +1,6 @@
-#lang at-exp scheme
+#lang at-exp racket
-(require scheme/date
+(require racket/date
-         scheme/runtime-path
+         racket/runtime-path
          xml
          "config.rkt"
          "diff.rkt"

collects/meta/drdr/rendering.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "list-count.rkt")
 
 (define-struct rendering (start end duration timeout? unclean-exit? stderr? responsible changed?) #:prefab)

collects/meta/drdr/replay-log.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "replay.rkt"
          "cache.rkt"
          "status.rkt")

collects/meta/drdr/replay.rkt

@@ -1,5 +1,5 @@
-#lang scheme
+#lang racket
-(require (prefix-in scheme: scheme)
+(require (prefix-in racket: racket)
          "formats.rkt"
          "status.rkt")
 
@@ -22,7 +22,7 @@
 
 (define (replay-exit-code s)
   (when (exit? s)
-    (scheme:exit (exit-code s))))
+    (racket:exit (exit-code s))))
 
 (provide/contract
  [replay-exit-code (status? . -> . void)]

collects/meta/drdr/retry.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "notify.rkt")
 
 (define-syntax-rule (retry-until-success msg expr ...)

collects/meta/drdr/rewriting.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "status.rkt")
 
 (define (rewrite-status #:rewrite rewrite-string s)

collects/meta/drdr/run-collect.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "status.rkt"
          "notify.rkt"
          "rewriting.rkt"

collects/meta/drdr/scm.rkt

@@ -1,9 +1,9 @@
-#lang scheme
+#lang racket
 (require "svn.rkt"
          "path-utils.rkt"
          "dirstruct.rkt"
          net/url
-         scheme/system)
+         racket/system)
 (provide
  (all-from-out "svn.rkt"))
 

collects/meta/drdr/sema.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 
 (define (semaphore-wait* sema how-many)
   (unless (zero? how-many)

collects/meta/drdr/set-browser.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 
 (printf "Setting the default browser to something safe...\n")
 

collects/meta/drdr/status.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (define-struct event () #:prefab)
 (define-struct (stdout event) (bytes) #:prefab)
 (define-struct (stderr event) (bytes) #:prefab)

collects/meta/drdr/svn.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 
 (define-struct svn-rev () #:prefab)
 (define-struct (svn-rev-nolog svn-rev) () #:prefab)

collects/meta/drdr/time-file.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require "config.rkt"
          "dirstruct.rkt"
          "cache.rkt"

collects/meta/drdr/time.rkt

@@ -1,6 +1,6 @@
-#lang scheme
+#lang racket
 (require (planet jaymccarthy/job-queue)
-         scheme/system
+         racket/system
          (prefix-in graph-one: "graph.rkt")
          "config.rkt"
          "notify.rkt"
@@ -39,7 +39,7 @@
        (apply 
         system*/exit-code
         (path->string
-         (build-path (plt-directory) "plt" "bin" "mzscheme"))
+         (build-path (plt-directory) "plt" "bin" "racket"))
         "-t" 
         (path->string (build-path (drdr-directory) "time-file.rkt"))
         "--"

collects/meta/drdr/vdbm.rkt

@@ -1,4 +1,4 @@
-#lang scheme
+#lang racket
 (require (planet jaymccarthy/dbm)
          "wrap-dict.rkt")