Index: runs.scm ================================================================== --- runs.scm +++ runs.scm @@ -2144,10 +2144,11 @@ ) ; end case rem-status ) ; end let ); end cond has-subrun (else + ;; BB - TODO - consider backgrounding to threads to delete tests (work below) (debug:print-info 0 *default-log-port* "test: " test-name " itest-state: " test-state) (if (member test-state (list "RUNNING" "LAUNCHED" "REMOTEHOSTSTART" "KILLREQ")) (begin (if (not (hash-table-ref/default test-retry-time test-fulln #f)) (begin