@@ -34,11 +34,10 @@ ;; (use zmq) (declare (uses common)) (declare (uses megatest-version)) -(declare (uses margs)) (declare (uses runs)) (declare (uses launch)) (declare (uses server)) (declare (uses client)) (declare (uses tests)) @@ -54,11 +53,11 @@ (declare (uses env)) (declare (uses diff-report)) (declare (uses ftail)) (import ftail) ;;(declare (uses mtconfigf)) -(use (prefix mtconfigf configf:)) + (define *db* #f) ;; this is only for the repl, do not use in general!!!! (include "common_records.scm") (include "key_records.scm") @@ -596,11 +595,12 @@ ;; Misc setup stuff ;;====================================================================== (debug:setup) -(if (args:get-arg "-logging")(set! *logging* #t)) +(if (args:get-arg "-logging") + (debug:add-logging-callback db:log-event)) (if (debug:debug-mode 3) ;; we are obviously debugging (set! open-run-close open-run-close-no-exception-handling)) (if (args:get-arg "-itempatt")