From 6006a4c84d6e2b81fe1a9209f596fdcebd6e7734 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 27 May 2010 06:36:45 -0600
Subject: [PATCH] fix helper file for raco ctool test

---
 collects/tests/racket/makeflats.rktl | 50 ++++++++++++++--------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/collects/tests/racket/makeflats.rktl b/collects/tests/racket/makeflats.rktl
index d4145c883d..33bc3f5740 100644
--- a/collects/tests/racket/makeflats.rktl
+++ b/collects/tests/racket/makeflats.rktl
@@ -4,32 +4,32 @@
             (let ([ns (current-namespace)])
               (parameterize ([current-namespace (make-base-namespace)])
                 (set! flat-number (add1 flat-number))
-                (namespace-attach-module ns 'scheme)
-                (namespace-require 'scheme)
+                (namespace-attach-module ns 'racket)
+                (namespace-require 'racket)
                 (eval
                  `(begin
                     (define flat-load ,f)
                     (define flat-number ,(format "-~a" flat-number))
-                    (load-relative "makeflat.ss"))))))
-	  '("basic.ss"
-	    "unicode.ss"
-	    "read.ss"
-	    "macro.ss"
-	    "syntax.ss"
-	    "stx.ss"
-	    "module.ss"
-	    "number.ss"
-	    "object.ss"
-	    "struct.ss"
-	    "unit.ss"
-	    "unitsig.ss"
-	    "thread.ss"
-	    "sync.ss"
-	    "deep.ss"
-	    "contmark.ss"
-            "prompt.ss"
-	    "will.ss"
-	    "namespac.ss"
-	    "port.ss"
-	    "file.ss"
-	    "path.ss"))
+                    (load-relative "makeflat.rktl"))))))
+	  '("basic.rktl"
+	    "unicode.rktl"
+	    "read.rktl"
+	    "macro.rktl"
+	    "syntax.rktl"
+	    "stx.rktl"
+	    "module.rktl"
+	    "number.rktl"
+	    "object.rktl"
+	    "struct.rktl"
+	    "unit.rktl"
+	    "unitsig.rktl"
+	    "thread.rktl"
+	    "sync.rktl"
+	    "deep.rktl"
+	    "contmark.rktl"
+            "prompt.rktl"
+	    "will.rktl"
+	    "namespac.rktl"
+	    "port.rktl"
+	    "file.rktl"
+	    "path.rktl"))