From 86647b01ebda6413e1f36ac886e8678e6ca0ed79 Mon Sep 17 00:00:00 2001
From: Jono Spiro <jono.spiro@gmail.com>
Date: Tue, 10 Aug 2004 02:39:11 +0000
Subject: [PATCH] svn: r172

---
 collects/mztake/doc.txt     |  2 --
 collects/mztake/make-plt.ss | 40 ++++++++++++++++++-------------------
 2 files changed, 20 insertions(+), 22 deletions(-)

diff --git a/collects/mztake/doc.txt b/collects/mztake/doc.txt
index f61b64ecf4..2c30a7cc5b 100644
--- a/collects/mztake/doc.txt
+++ b/collects/mztake/doc.txt
@@ -453,7 +453,6 @@ MzTake defines a few functions on time-varying values
 that are particularly useful when debugging:
 
 > (history-e stream)
-
 > (history-b stream)
 
    Keeps a complete history of all the values seen
@@ -462,7 +461,6 @@ that are particularly useful when debugging:
    Use with BINDs: (history-b x-trace)
 
 > (history-e n stream)
-
 > (history-b n stream)
 
    Keeps a list of the last n values of a behavior
diff --git a/collects/mztake/make-plt.ss b/collects/mztake/make-plt.ss
index 4437cdc244..0b452e3788 100644
--- a/collects/mztake/make-plt.ss
+++ b/collects/mztake/make-plt.ss
@@ -1,20 +1,20 @@
-(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"-uncommented.ss$" path)
-                  (regexp-match #rx"make" path)))))
-  
-
-  ;without frtime bundled:
-  (pack-collections "mztake-frtime-distro.plt" "MzTake Debugger"
-                    '(("mztake")) #t '(("frtime")("stepper")) my-filter #f)
-  
-  (pack-collections "mztake-distro.plt" "MzTake Debugger"
-                    '(("mztake")("frtime")) #t '(("stepper")) my-filter #f))
+(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"-uncommented.ss$" path)
+                  (regexp-match #rx"make" path)))))
+  
+
+  ;without frtime bundled:
+  (pack-collections "mztake-distro.plt" "MzTake Debugger"
+                    '(("mztake")) #t '(("frtime")("stepper")) my-filter #f)
+  
+  (pack-collections "mztake-frtime-distro.plt" "MzTake Debugger"
+                    '(("mztake")("frtime")) #t '(("stepper")) my-filter #f))