@@ -13,12 +13,21 @@ ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see . ;; +; +(declare (uses common)) +(declare (uses mtargs)) +(declare (uses debugprint)) +(declare (uses configf)) +;; (declare (uses rmt)) +(declare (uses commonmod)) +(declare (uses commonmod.import)) -;; (include "common.scm") +(import debugprint) + ; (include "common.scm") (include "megatest-version.scm") ;; fake out readline usage of toplevel-command (define (toplevel-command . a) #f) @@ -26,17 +35,12 @@ srfi-19 srfi-18 extras format pkts regex regex-case (prefix dbi dbi:) (prefix sqlite3 sqlite3:) nanomsg) -(declare (uses common)) -(declare (uses margs)) -(declare (uses configf)) -;; (declare (uses rmt)) -(declare (uses commonmod)) -(declare (uses commonmod.import)) -(import commonmod) +(import commonmod + (prefix mtargs args:)) (use ducttape-lib) (include "megatest-fossil-hash.scm")