Index: Makefile ================================================================== --- Makefile +++ Makefile @@ -236,12 +236,12 @@ utils/mk_wrapper $(PREFIX) mtut $(PREFIX)/bin/mtutil chmod a+x $(PREFIX)/bin/mtutil # mtexec -mtexec: $(OFILES) $(MOFILES) megatest-fossil-hash.scm mtexec.scm - csc $(CSCOPTS) $(OFILES) $(MOFILES) mtexec.scm -o mtexec +mtexec: $(MOFILES) megatest-fossil-hash.scm mtexec.scm + csc $(CSCOPTS) $(MOFILES) mtexec.scm -o mtexec $(PREFIX)/bin/.$(ARCHSTR)/mtexec : mtexec $(INSTALL) mtexec $(PREFIX)/bin/.$(ARCHSTR)/mtexec $(PREFIX)/bin/mtexec : $(PREFIX)/bin/.$(ARCHSTR)/mtexec utils/mk_wrapper Index: http-transport-inc.scm ================================================================== --- http-transport-inc.scm +++ http-transport-inc.scm @@ -15,12 +15,12 @@ ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see . ;; Configurations for server -(tcp-buffer-size 2048) -(max-connections 2048) +;; (tcp-buffer-size 2048) +;; (max-connections 2048) (define (http-transport:make-server-url hostport) (if (not hostport) #f (conc "http://" (car hostport) ":" (cadr hostport)))) Index: megamod.scm ================================================================== --- megamod.scm +++ megamod.scm @@ -48,18 +48,17 @@ (module megamod * (import scheme chicken data-structures extras) -(import +(use (prefix base64 base64:) (prefix dbi dbi:) (prefix nanomsg nmsg:) (prefix sqlite3 sqlite3:) call-with-environment-variables canvas-draw - canvas-draw-iup csv csv-xml data-structures directory-utils dot-locking @@ -99,10 +98,13 @@ typed-records udp uri-common z3 ) + +(import canvas-draw-iup spiffy) + ;; (import apimod) ;; (import archivemod) ;; (import clientmod) ;; (import commonmod) @@ -133,11 +135,10 @@ (include "key_records.scm") (include "run_records.scm") (include "task_records.scm") (include "test_records.scm") (include "vg_records.scm") -(include "js-path.scm") ;;====================================================================== ;; L O C K I N G M E C H A N I S M S ;;====================================================================== @@ -193,9 +194,10 @@ (include "subrun-inc.scm") (include "tasks-inc.scm") (include "tdb-inc.scm") (include "tests-inc.scm") (include "vg-inc.scm") +(include "js-path.scm") ;; load last as it sets a global ) ;; http-transport:server-dat definition moved to common_records.scm ;; bunch of small functions factored out of send-receive to make debug easier Index: mtexec.scm ================================================================== --- mtexec.scm +++ mtexec.scm @@ -28,11 +28,15 @@ ) ;; (declare (uses common)) (declare (uses megatest-version)) (declare (uses margs)) -(declare (uses configf)) +;; (declare (uses configf)) + +(declare (uses megamod)) +(import megamod) + ;; (declare (uses rmt)) ;; (use ducttape-lib) (include "megatest-fossil-hash.scm")