@@ -70,11 +70,11 @@
 	   (status (conc (configf:lookup dat "final" "exit-status") ": " (if msg msg "no message")))
 	   (else #f)))
 	#f)))
 
 
-
+;; monitors a test. check for kill signal, watch cpu load and disk free
 (define (launch:monitor-job run-id test-id item-path fullrunscript ezsteps test-name tconfigreg exit-info m work-area runtlim misc-flags)
   (let* ((update-period (string->number (or (configf:lookup *configdat* "setup" "test-stats-update-period") "30")))
          (start-seconds (current-seconds))
 	 (calc-minutes  (lambda ()
 			  (inexact->exact 
@@ -167,12 +167,15 @@
                         (or new-cpu-load cpu-load)
                         (or new-disk-free disk-free)
                         (if do-sync (current-seconds) last-sync)))))))
     (tests:update-central-meta-info run-id test-id (get-cpu-load) (get-df (current-directory))(calc-minutes) #f #f))) ;; NOTE: Checking twice for keep-going is intentional
 
+;; rerun one step
+;; rerun one step and subsequent steps
+;; rerun logpro for each step (extracting from tconfig if source is there), inheriting env
 
-(define (launch:execute encoded-cmd)
+(define (launch:execute encoded-cmd #!key (ezsteps-logpro-redo #f))
   (let* ((cmdinfo    (common:read-encoded-string encoded-cmd))
 	 (tconfigreg #f))
     (setenv "MT_CMDINFO" encoded-cmd)
     ;;(bb-check-path msg: "launch:execute incoming")
     (if (list? cmdinfo) ;; ((testpath /tmp/mrwellan/jazzmind/src/example_run/tests/sqlitespeed)
@@ -275,10 +278,11 @@
 	  (setenv "MT_TEST_RUN_DIR"  work-area)
 
 	  (launch:setup) ;; should be properly in the run area home now
           
 	  (set! tconfigreg (tests:get-all)) ;; mapping of testname => test source path
+          ;; TODO in 2.0: capture stack dump in execute to set incomplete like below does for signals
 	  (let ((sighand (lambda (signum)
 			   ;; (signal-mask! signum) ;; to mask or not? seems to cause issues in exiting
 			   (if (eq? signum signal/stop)
 			       (debug:print-error 0 *default-log-port* "attempt to STOP process. Exiting."))
 			   (set! *time-to-exit* #t)