@@ -16,10 +16,28 @@ ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see . ;; ;;====================================================================== +(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 treemod)) +(declare (uses dcommon)) +(declare (uses dashboard-context-menu)) +(declare (uses vg)) +(declare (uses subrun)) +(declare (uses mt)) +(declare (uses dbfile)) + (use format) (require-library iup) (import (prefix iup iup:)) @@ -27,28 +45,11 @@ (import canvas-draw-iup) (use ducttape-lib) (use sqlite3 srfi-1 posix regex regex-case srfi-69 typed-records sparse-vectors) ;; defstruct (import (prefix sqlite3 sqlite3:)) (import dbfile) - -(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 tree)) -(declare (uses dcommon)) -(declare (uses dashboard-context-menu)) -(declare (uses vg)) -(declare (uses subrun)) -(declare (uses mt)) -(declare (uses dbfile)) +(import treemod) (include "common_records.scm") (include "db_records.scm") (include "run_records.scm") (include "task_records.scm")