Index: Makefile ================================================================== --- Makefile +++ Makefile @@ -160,17 +160,19 @@ mofiles/commonmod.o : megatest-fossil-hash.scm mofiles/dbmod.o \ mofiles/servermod.o \ mofiles/apimod.o \ mofiles/dcommonmod.o \ - mofiles/configfmod.o \ - mofiles/ods.o : mofiles/commonmod.o + mofiles/ods.o : mofiles/commonmod.o mofiles/configfmod.o mofiles/dcommonmod.o : mofiles/configfmod.o mofiles/dbmod.o - +mofiles/configfmod.o : mofiles/commonmod.o +# mofiles/dbmod.o : mofiles/configfmod.o mofiles/rmtmod.o : mofiles/apimod.o +mofiles/servermod.o : mofiles/dbmod.o common.o : mofiles/commonmod.o + # commonmod.o dashboard.o megatest.o tcmt.o apimod.o : megatest-fossil-hash.scm tests.o db.o launch.o runs.o dashboard-tests.o \ dashboard-context-menu.o dashboard-guimonitor.o dashboard-main.o \ monitor.o dashboard.o archive.o megatest.o : db_records.scm megatest-fossil-hash.scm Index: dbmod.scm ================================================================== --- dbmod.scm +++ dbmod.scm @@ -946,12 +946,12 @@ (for-each (lambda (dat) (let ((tblname (car dat)) (count (cdr dat))) (set! tot-count (+ tot-count count)) - (if (> count 0) - (if should-print (debug:print 0 *default-log-port* (format #f " ~10a ~5a" tblname count)))))) + (if (> count 0) ;; concs are there to prevent "Error: (sprintf) illegal format-string character: #\1" which I don't understand. + (if should-print (debug:print 0 *default-log-port* (format #f " ~10a ~5a" (conc tblname)(conc count))))))) (sort (hash-table->alist numrecs)(lambda (a b)(> (cdr a)(cdr b)))))) tot-count)))) (define db:trigger-list (list (list "update_runs_trigger" "CREATE TRIGGER IF NOT EXISTS update_runs_trigger AFTER UPDATE ON runs