From cb87da8e2649816838b6571b898be61f614e4410 Mon Sep 17 00:00:00 2001
From: Jono Spiro <jono.spiro@gmail.com>
Date: Sat, 7 Aug 2004 00:56:29 +0000
Subject: [PATCH] made PLT archive

svn: r158
---
 collects/mztake/doc.txt     |  2 +-
 collects/mztake/info.ss     |  1 +
 collects/mztake/make-plt.ss | 17 +++++++++++++++++
 collects/mztake/mztake.ss   | 18 +++++++-----------
 4 files changed, 26 insertions(+), 12 deletions(-)
 create mode 100644 collects/mztake/make-plt.ss

diff --git a/collects/mztake/doc.txt b/collects/mztake/doc.txt
index 4d26d0b011..e6d1dac8ac 100644
--- a/collects/mztake/doc.txt
+++ b/collects/mztake/doc.txt
@@ -235,7 +235,7 @@ In more depth, the debugger works on a model roughly as follows:
   * The first client defined for each MzTake process is *always* the
     main ("top level") module. That is, START/RESUME runs the main
     client module, in much the same way that you would run it in
-    DrScheme (in the "module..." language). It is assumed the module
+    DrScheme (in the "module ..." language). It is assumed the module
     has "side-effects" which start the target program.
 
     The rest of the files traced in a MZTAKE-PROCESS are modules
diff --git a/collects/mztake/info.ss b/collects/mztake/info.ss
index a8b81691f2..9422a0acb6 100644
--- a/collects/mztake/info.ss
+++ b/collects/mztake/info.ss
@@ -1,6 +1,7 @@
 (module info (lib "infotab.ss" "setup")
   (define name "Debugger")
   (define tools '(("debugger-tool.ss")))
+  (define blurb '("MzTake is a scripted debugger for PLT Scheme."))
   (define tool-names '("MzTake Debugger"))
   (define tool-icons '(("emblem-ohno.png" "mztake")))
 )
diff --git a/collects/mztake/make-plt.ss b/collects/mztake/make-plt.ss
new file mode 100644
index 0000000000..8f1c9f31a6
--- /dev/null
+++ b/collects/mztake/make-plt.ss
@@ -0,0 +1,17 @@
+(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)))))
+  
+  
+  (pack-collections "mztake.plt" "MzTake Debugger" '(("mztake")) #t '(("frtime") ("stepper")) my-filter #t))
+
+; Now, check-out
+;(make-planet-archive "mztake.plt"))
\ No newline at end of file
diff --git a/collects/mztake/mztake.ss b/collects/mztake/mztake.ss
index 90b90bb2cf..f120a73ef6 100644
--- a/collects/mztake/mztake.ss
+++ b/collects/mztake/mztake.ss
@@ -1,14 +1,8 @@
 (module mztake mzscheme
   
-  (define mztake-version "Rev. Wed Aug 5, 2004 - 23:12:00")
+  (define mztake-version "(rev. 8/6/2004)")
   
-  #| TODO
-
-Remove marks.ss from MzTake as soon as the new version of it becomes standard with releases.
-Search for everywhere marks.ss shows up in mztake and replace
-(lib "marks.ss" "mztake" "private") with (lib "marks.ss" "stepper" "private")
-
-:::::::::LOAD/ANNOTATOR BUGS::::::::::::::
+  #|:::::::::LOAD/ANNOTATOR BUGS:::::::::::
 * catch oops exception
 * catch the other two exceptions that my loaders throw
 * detect if the source code for a certain module is missing and throw an exception
@@ -28,8 +22,6 @@ DEMOS---------------------------------------------------------------------------
 
 * something with multiple threads doing something and draw the threads in different colors in a window
 
-* FIX heap example -- give greg new heap.ss
-
 
 SCRIPT--------------------------------------------------------------------------------------
 * document history-e; provide a variant of history which takes no n, and keeps a complete history
@@ -58,6 +50,10 @@ OPTIMIZATIONS-------------------------------------------------------------------
 
 * improve speed of functions in (run)
 
+* Remove marks.ss from MzTake as soon as the new version of it becomes standard with releases.
+Search for everywhere marks.ss shows up in mztake and replace
+(lib "marks.ss" "mztake" "private") with (lib "marks.ss" "stepper" "private")
+
 
 ERROR-CHECKING/HANDLING---------------------------------------------------------------------
 * Make (script-error) map to some exception stream for script errors only.
@@ -535,7 +531,7 @@ TESTING/CAPABILITIES------------------------------------------------------------
     (when (empty? binding-symbol)
       (script-error (format "No symbols defined in BIND for client: `~a'"
                             (debug-client-modpath client))))
-
+    
     (with-handlers ([(lambda (exn) #t)
                      (lambda (exn) (raise-syntax-error 'mztake:script-error:trace/bind exn))])
       (let ([trace-hash (debug-client-tracepoints client)]