Index: dashboard-guimonitor.scm ================================================================== --- dashboard-guimonitor.scm +++ dashboard-guimonitor.scm @@ -174,11 +174,11 @@ (iup:attribute-set! tabtop "TABTITLE3" "Tools") tabtop)))) (on-exit (lambda () (let ((tdb (tasks:open-db))) - (print "On-exit called") + ;; (print "On-exit called") (tasks:remove-monitor-record tdb) (sqlite3:finalize! tdb)))) (define (gui-monitor db) (let ((keys (get-keys db)) Index: launch.scm ================================================================== --- launch.scm +++ launch.scm @@ -322,10 +322,13 @@ (if (not (vector-ref exit-info 1)) (exit 4))))))) ;; set up the very basics needed for doing anything here. (define (setup-for-run) + ;; would set values for KEYS in the environment here for better support of env-override but + ;; have chicken/egg scenario. need to read megatest.config then read it again. Going to + ;; pass on that idea for now. (set! *configinfo* (find-and-read-config (if (args:get-arg "-config")(args:get-arg "-config") "megatest.config") environ-patt: "env-override")) (set! *configdat* (if (car *configinfo*)(car *configinfo*) #f)) (set! *toppath* (if (car *configinfo*)(cadr *configinfo*) #f)) (if *toppath* (setenv "MT_RUN_AREA_HOME" *toppath*) ;; to be deprecated Index: megatest-version.scm ================================================================== --- megatest-version.scm +++ megatest-version.scm @@ -1,7 +1,7 @@ ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) -(define megatest-version 1.32) +(define megatest-version 1.33)