From a095ebc326aa35b5b19f314080855db5d55ed49b Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Fri, 17 Sep 2010 10:18:49 -0700
Subject: [PATCH] added format arg to printf to avoid corner-case printf bugs,
 rackety changes

---
 collects/test-engine/racket-tests.rkt                     | 2 +-
 collects/test-engine/test-display.scm                     | 2 +-
 collects/test-engine/{test-engine.scm => test-engine.rkt} | 6 +++---
 3 files changed, 5 insertions(+), 5 deletions(-)
 rename collects/test-engine/{test-engine.scm => test-engine.rkt} (99%)

diff --git a/collects/test-engine/racket-tests.rkt b/collects/test-engine/racket-tests.rkt
index 8ef288e387..fc0ba138af 100644
--- a/collects/test-engine/racket-tests.rkt
+++ b/collects/test-engine/racket-tests.rkt
@@ -5,7 +5,7 @@
          scheme/match
 	 lang/private/continuation-mark-key
          (only scheme/base for memf findf)
-         "test-engine.scm"
+         "test-engine.rkt"
 	 "test-info.scm"
          )
 
diff --git a/collects/test-engine/test-display.scm b/collects/test-engine/test-display.scm
index b0969bbde7..5f1e6e5be1 100644
--- a/collects/test-engine/test-display.scm
+++ b/collects/test-engine/test-display.scm
@@ -6,7 +6,7 @@
          framework
          string-constants
          "test-info.scm"
-         "test-engine.scm"
+         "test-engine.rkt"
 	 "print.ss"
  	 (except-in deinprogramm/signature/signature signature-violation) ; clashes with test-engine
  	 deinprogramm/quickcheck/quickcheck)
diff --git a/collects/test-engine/test-engine.scm b/collects/test-engine/test-engine.rkt
similarity index 99%
rename from collects/test-engine/test-engine.scm
rename to collects/test-engine/test-engine.rkt
index cf29effc09..9c0997e628 100644
--- a/collects/test-engine/test-engine.scm
+++ b/collects/test-engine/test-engine.rkt
@@ -1,6 +1,6 @@
-#lang scheme/base
+#lang racket/base
 
-(require scheme/class
+(require racket/class
          "test-info.scm")
 
 (define test-display-textual%
@@ -99,7 +99,7 @@
     ;; make-link: (listof (U check-fail (U string snip%))) src -> void
     (define (make-link reason dest)
       (print-reason display display reason)
-      (printf (format-src dest)))
+      (printf "~a" (format-src dest)))
 
     (define (format-src src)
       (let ([src-file car]