little clean ups

svn: r591

collects/mztake/TODO.txt

@@ -1,5 +1,3 @@
-- Select what gets annotated
-- Update the documentation
 - Stack navigation from REPL
 - Automated tests
 - Trace by function name 
@@ -17,16 +15,10 @@
 CHANGES TO MAKE-----------------------------------------------------------------------------
 Ability to add named anchors into code using Special menu in DRS -- use those anchors as tracepoints.
 
-Mailing list just for MzTake updates
-
 Demo monitoring DrScheme for Robby?
 
 Bind Stop button to kill-all.
 
-Remove the tool button for 299 update.
-
-Reword hacked changes in doc.txt for stopping MzTake with kill
-
 Test Suite for debugger annotator
 
 Demo and docs for debugging multiple files, to make Robby happy.  It is true that the docs are not very helpful on this count.  It'd be nice if you could mock up a quick example of tracing something inside DrScheme....
@@ -37,13 +29,6 @@ On the whole, I like the tool, although it'd be nice to have either
  	(b) an AST-based description of the thing to be monitored (shades
  		of aspect-oriented programming).
 
-(1) montecarlo never gets to pi: I think there's a math error.
-Shouldn't montecarlo.ss check whether (length . <= . 200)?  Otherwise, you're off by about 1% which gives an underestimate by about 0.03.  (You could speed it up by removing the sqrt call and checking against 40000).
-
-(2) dijkstra seems to go into an infinite loop -- but I don't know what the source of the problem is, because
-
-(3) plt scheme becomes quite unstable: the STOP button no longer works, and I end up killing things using Windows Task Manager, at which point I cannot run PLT Scheme (208) until I reboot :-(
-
 
 Re-direct, or at least prefix, program output from the client so that it can be distinguished from the script
 
@@ -60,25 +45,6 @@ DEMOS---------------------------------------------------------------------------
 * something with multiple threads doing something and draw the threads in different colors in a window
 
 
-SCRIPT--------------------------------------------------------------------------------------
-
-* process:time-per-event/milliseconds is broken
-  (printf-b "~a ms per event" (time-per-event/milliseconds p (changes (hold sin/x-trace))))
-
-* process:running? is broken
-
-* Make script errors highlight the location of the error
-
-* Let traces take a line number without offset and find the first bindable location.
-
-* Provide a body to bind instead or returning an eventstream, like (list x y)
-  Write a nested syntax for bind so that you can take a first-class function that defines a way to return variables, not just as a list
-
-* Maybe take a thunk to do when a entry trace is hit?
-
-* Way to turn printouts on and off like (print-struct #t), or should we have an output window? (mztake-verbose) (parameterize it?)
-
-
 OPTIMIZATIONS-------------------------------------------------------------------------------
 * improve speed of lookup for line-col->pos; load them into a hashtable?  not important since this is just startup time for the script.
 
@@ -87,32 +53,22 @@ 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.
 
 * Make all exposed cells and evstreams read-only by lifting the identity function on them
 
 * Turn script errors into syntax errors (i.e. what happens when you bind to variables that don't exist)
     --take the syntax when the binding is made and save it in a hashtable
 
-* Offer a way to install a special handler for exceptions -- somehow identify which client an exceptions comes from
-
 
 TESTING/CAPABILITIES------------------------------------------------------------------------
 * Does user interaction work?  Can we step through loops one line at a time waiting for input?  GUIs?
 
-* We want a way to interactively step through code one line at a time when we pause.
-  Provide way to check bindings at the same time -- EVEN IF NOT BOUND USING TRACE/BIND
-
 * What kind of interface do we want to dig into frames
 
-* Need to know where the program pauses at
-
 * What do we do about binding to a variable and following it EVERYWHERE it goes.  Even if it is assigned to something else.
 
-* Find a way to bind to the result of ananonymous expression: here->(add1 2)
+* Implement access to the result of ananonymous expression: here->(add1 2)
 |#

collects/mztake/debug-tool.ss

@@ -9,11 +9,11 @@
            (lib "mred.ss" "mred")
            (prefix drscheme:arrow: (lib "arrow.ss" "drscheme"))
            (lib "tool.ss" "drscheme")
-           (lib "marks.ss" "mztake" "private")
+           "marks.ss"
            (lib "boundmap.ss" "syntax")
            (lib "bitmap-label.ss" "mrlib")
-           (lib "annotator.ss" "mztake")
+           "annotator.ss"
-           (lib "load-sandbox.ss" "mztake")
+           "load-sandbox.ss"
            ;(lib "framework.ss" "framework")
            #;(lib "string-constant.ss" "string-constants")
            )

collects/mztake/demos/dijkstra/dijkstra.ss

@@ -2,7 +2,7 @@
   (require "dijkstra-solver.ss"
            "graph.ss"
            (lib "list.ss"))
-  (print-struct #t)
+
   (define g (make-graph 'directed))
   (define (m-node label x y) (make-node label x y +inf.0))
   (define nodes

collects/mztake/mztake-structs.ss

@@ -27,7 +27,7 @@
   
   (define-struct debug-process (custodian     ; If you shutdown-all it will kill the debugger process
                                 run-semaphore ; When you post to this the debuggee will continue executing
-                                running-e     ; Is the program (supposed-to-be) currently running
+                                running-e     ; #t on this event resumes, #f pauses
                                 run-manager   ; saves behavior that actually pauses/resumes from GC
                                 pause-requested?
                                 resume-requested?