@@ -34,11 +34,10 @@ ;; (declare (uses common)) ;; (declare (uses margs)) ;; (declare (uses keys)) ;; (declare (uses items)) ;; (declare (uses db)) -;; (declare (uses configf)) ;; (declare (uses process)) ;; (declare (uses launch)) ;; (declare (uses runs)) ;; (declare (uses dashboard-tests)) ;; (declare (uses dashboard-guimonitor)) @@ -66,11 +65,13 @@ (include "run_records.scm") (include "task_records.scm") (include "megatest-fossil-hash.scm") (include "vg_records.scm") +(configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*) (configf:add-eval-string "(import megamod)") + (define help (conc "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " license GPL, Copyright (C) Matt Welland 2012-2017 @@ -117,11 +118,10 @@ args:arg-hash 0)) ;; (set! *functions* dbmod#*functions*) ;; (set! apimod#*functions* dbmod#*functions*) -;; (set! configfmod#*functions* dbmod#*functions*) (include "migrate-fix.scm") ;; check for MT_* environment variables and exit if found (if (not (args:get-arg "-test"))