Index: ezsteps.scm ================================================================== --- ezsteps.scm +++ ezsteps.scm @@ -27,19 +27,22 @@ (declare (uses debugprint)) (declare (uses items)) (declare (uses runconfig)) (declare (uses rmtmod)) (declare (uses mtargs)) +(declare (uses tasksmod)) (use srfi-1 posix regex srfi-69 directory-utils call-with-environment-variables posix-extras z3 csv typed-records pathname-expand matchable) (import commonmod configfmod debugprint rmtmod - (prefix mtargs args:)) + (prefix mtargs args:) + tasksmod + ) (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "run_records.scm") Index: megatest.scm ================================================================== --- megatest.scm +++ megatest.scm @@ -37,22 +37,16 @@ (declare (uses commonmod.import)) (declare (uses processmod)) (declare (uses processmod.import)) (declare (uses configfmod)) (declare (uses configfmod.import)) +(declare (uses pgdb)) +(declare (uses pgdb.import)) (declare (uses mtmod)) (declare (uses mtmod.import)) (declare (uses servermod)) (declare (uses servermod.import)) - -(declare (uses tdb)) -(declare (uses mt)) -(declare (uses api)) -(declare (uses tasks)) ;; only used for debugging. -(declare (uses env)) -(declare (uses diff-report)) -(declare (uses db)) (declare (uses dbfile)) (declare (uses dbfile.import)) (declare (uses dbmod)) (declare (uses dbmod.import)) (declare (uses portlogger)) @@ -67,11 +61,20 @@ (declare (uses rmtmod.import)) (declare (uses fsmod)) (declare (uses fsmod.import)) (declare (uses cpumod)) (declare (uses cpumod.import)) +(declare (uses tasksmod)) +(declare (uses tasksmod.import)) +(declare (uses tdb)) +(declare (uses mt)) +(declare (uses api)) +(declare (uses tasks)) ;; only used for debugging. +(declare (uses env)) +(declare (uses diff-report)) +(declare (uses db)) (declare (uses runs)) (declare (uses launch)) (declare (uses server)) (declare (uses tests)) (declare (uses genexample)) @@ -99,10 +102,11 @@ apimod stml2 mtmod megatestmod servermod + tasksmod ) (define *db* #f) ;; this is only for the repl, do not use in general!!!! (include "common_records.scm") Index: subrun.scm ================================================================== --- subrun.scm +++ subrun.scm @@ -17,24 +17,28 @@ ;; along with Megatest. If not, see . ;; strftime('%m/%d/%Y %H:%M:%S','now','localtime') (declare (unit subrun)) + (declare (uses debugprint)) -(declare (uses db)) -(declare (uses common)) (declare (uses commonmod)) (declare (uses configfmod)) +(declare (uses tasksmod)) + (declare (uses mt)) +(declare (uses db)) +(declare (uses common)) (use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) posix-extras directory-utils pathname-expand typed-records format call-with-environment-variables) (import commonmod configfmod - debugprint) + debugprint + tasksmod) ;(include "common_records.scm") ;;(include "key_records.scm") (include "db_records.scm") ;; provides db:test-get-id ;;(include "run_records.scm")