@@ -17,40 +17,37 @@ ;; along with Megatest. If not, see . ;;====================================================================== (declare (unit dashboard-context-menu)) -;; (declare (uses common)) -(declare (uses commonmod)) -(declare (uses configfmod)) -(declare (uses gutils)) -(declare (uses rmtmod)) -(declare (uses ezsteps)) -;; (declare (uses sdb)) -;; (declare (uses filedb)) -(declare (uses subrun)) -(declare (uses testsmod)) -(declare (uses subrunmod)) -(declare (uses megatestmod)) - -(use format fmt) -(require-library iup) -(import (prefix iup iup:)) - -(use canvas-draw) - -(use srfi-1 posix regex regex-case srfi-69) -(use (prefix sqlite3 sqlite3:)) - -;; (include "common_records.scm") -;; (include "db_records.scm") -(include "run_records.scm") - -(import commonmod - configfmod - rmtmod - testsmod - subrunmod - debugprint - megatestmod - ) - +;; (declare (uses commonmod)) +;; (declare (uses configfmod)) +;; (declare (uses rmtmod)) +;; (declare (uses ezsteps)) +;; (declare (uses subrun)) +;; (declare (uses testsmod)) +;; (declare (uses subrunmod)) +;; (declare (uses megatestmod)) +;; +;; (use format fmt) +;; (require-library iup) +;; (import (prefix iup iup:)) +;; +;; (use canvas-draw) +;; +;; (use srfi-1 posix regex regex-case srfi-69) +;; (use (prefix sqlite3 sqlite3:)) +;; +;; ;; (include "common_records.scm") +;; ;; (include "db_records.scm") +;; ;; (include "run_records.scm") +;; +;; (import commonmod +;; configfmod +;; rmtmod +;; testsmod +;; subrunmod +;; debugprint +;; megatestmod +;; ) +;; +;;