From c65e299e5c4f1b3a1a4c8c91fd0edd8e9404c1ec Mon Sep 17 00:00:00 2001
From: Jono Spiro <jono.spiro@gmail.com>
Date: Mon, 9 Aug 2004 19:20:28 +0000
Subject: [PATCH] svn: r166

---
 collects/mztake/make-clean.bat |  2 ++
 collects/mztake/make-plt.ss    | 55 +++++++++++++++++-----------------
 2 files changed, 29 insertions(+), 28 deletions(-)
 create mode 100644 collects/mztake/make-clean.bat

diff --git a/collects/mztake/make-clean.bat b/collects/mztake/make-clean.bat
new file mode 100644
index 0000000000..19304b22bd
--- /dev/null
+++ b/collects/mztake/make-clean.bat
@@ -0,0 +1,2 @@
+del compiled
+del private\compiled
\ No newline at end of file
diff --git a/collects/mztake/make-plt.ss b/collects/mztake/make-plt.ss
index 98cf60c704..1ff498de33 100644
--- a/collects/mztake/make-plt.ss
+++ b/collects/mztake/make-plt.ss
@@ -1,28 +1,27 @@
-(module make-plt mzscheme
-  
-  (require (lib "pack.ss" "setup")
-           #;(lib "util.ss" "planet"))
-  
-  (define (my-filter path)
-    (and (std-filter path)
-         (not (or (regexp-match #rx".svn$" path)
-                  (regexp-match #rx".bak$" path)
-                  (regexp-match #rx".1$" path)
-                  (regexp-match #rx"make" path)))))
-  
-  ;For use with PLaneT
-  #;(parameterize ((current-directory "."))
-    (pack "mztake-planet.plt"
-          "MzTake Debugger"
-          '(".")
-          '()
-          my-filter
-          #t
-          'file
-          #f
-          #f
-          '(("frtime") ("stepper"))))
-  
-  ; for use not on PLaneT
-  (pack-collections "frtime-distro.plt" "FrTime Language" '(("frtime")) #f '() std-filter)
-  (pack-collections "mztake-distro.plt" "MzTake Debugger" '(("mztake")) #t '(("frtime") ("stepper")) my-filter))
+(module make-plt mzscheme
+  
+  (require (lib "pack.ss" "setup")
+           #;(lib "util.ss" "planet"))
+  
+  (define (my-filter path)
+    (and (std-filter path)
+         (not (or (regexp-match #rx".svn$" path)
+                  (regexp-match #rx".bak$" path)
+                  (regexp-match #rx".1$" path)
+                  (regexp-match #rx"make" path)))))
+  
+  ;For use with PLaneT
+  #;(parameterize ((current-directory "."))
+    (pack "mztake-planet.plt"
+          "MzTake Debugger"
+          '(".")
+          '()
+          my-filter
+          #t
+          'file
+          #f
+          #f
+          '(("frtime") ("stepper"))))
+  
+  ; for use not on PLaneT
+  (pack-collections "mztake-distro.plt" "MzTake Debugger" '(("mztake")("frtime")) #t '(("stepper")) my-filter #f))