Index: megatest.scm ================================================================== --- megatest.scm +++ megatest.scm @@ -23,10 +23,12 @@ (define (toplevel-command . a) #f) (declare (uses common)) ;; (declare (uses megatest-version)) (declare (uses margs)) +(declare (uses mtargs)) +(declare (uses mtargs.import)) (declare (uses commonmod)) (declare (uses commonmod.import)) (declare (uses mtargs)) (declare (uses mtargs.import)) (declare (uses debugprint)) @@ -59,15 +61,17 @@ ;; (declare (uses debugprint.import)) ;; (declare (uses ftail)) ;; (import ftail) -(import debugprint +(import mtargs + debugprint dbmod commonmod dbfile - tcp-transportmod) + tcp-transportmod + ) (define *db* #f) ;; this is only for the repl, do not use in general!!!! (include "common_records.scm") (include "key_records.scm") Index: rmt.scm ================================================================== --- rmt.scm +++ rmt.scm @@ -128,11 +128,11 @@ (set! *runremote* newremote) (set! runremote newremote))) (let* ((dbfname (conc (dbfile:run-id->dbnum rid)".db"))) ;;(dbfile:run-id->path areapath run-id))) (tt:handler runremote cmd rid params attemptnum area-dat areapath readonly-mode dbfname testsuite mtexe))) -(define (http-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode testsuite mtexe) +(define (http-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode) ;; do all the prep locked under the rmt-mutex (mutex-lock! *rmt-mutex*) ;; ensure we have a record for our connection for given area (if (not runremote) ;; can remove this one. should never get here.