Index: Makefile ================================================================== --- Makefile +++ Makefile @@ -174,11 +174,11 @@ mofiles/mtconfigf.o : mtconfigf/mtconfigf.scm mofiles/ulex.o : ulex/ulex.scm # for the modularized stuff -mofiles/commonmod.o : megatest-fossil-hash.scm mofiles/stml2.o +mofiles/commonmod.o : megatest-fossil-hash.scm mofiles/stml2.o mofiles/mtargs.o mofiles/dbmod.o : mofiles/commonmod.o mofiles/keysmod.o \ mofiles/tasksmod.o mofiles/odsmod.o mofiles/commonmod.o : mofiles/processmod.o mofiles/rmtmod.o : mofiles/dbmod.o mofiles/commonmod.o \ mofiles/apimod.o mofiles/ulex.o Index: commonmod.scm ================================================================== --- commonmod.scm +++ commonmod.scm @@ -19,11 +19,12 @@ ;;====================================================================== (declare (unit commonmod)) ;; (declare (uses processmod)) (declare (uses stml2)) - +(declare (uses mtargs)) + (module commonmod * (import scheme chicken data-structures extras) Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm @@ -88,11 +88,11 @@ (declare (uses mtargs.import)) (declare (uses ducttape-lib.import)) (declare (uses mtconfigf.import)) (configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*) -(configf:add-eval-string "(import megamod)(import commonmod)") +(configf:add-eval-string "(import megamod commonmod (prefix mtargs args:))") (define help (conc "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version "