Index: megatest.scm ================================================================== --- megatest.scm +++ megatest.scm @@ -355,11 +355,11 @@ (args:get-arg "-reqtarg") (if (args:get-arg "-target") (args:get-arg "-target") #f))) (sections (if target (list "default" target) #f)) - (data (read-config "runconfigs.config" #f #f sections: sections))) + (data (read-config "runconfigs.config" #f #t sections: sections))) ;; keep this one local (cond ((not (args:get-arg "-dumpmode")) (pp (hash-table->alist data))) @@ -368,11 +368,11 @@ (else (debug:print 0 "ERROR: -dumpmode of " (args:get-arg "-dumpmode") " not recognised"))) (set! *didsomething* #t))) (if (args:get-arg "-show-config") - (let ((data (read-config "megatest.config" #f #f))) + (let ((data (read-config "megatest.config" #f #t))) ;; keep this one local (cond ((not (args:get-arg "-dumpmode")) (pp (hash-table->alist data))) ((string=? (args:get-arg "-dumpmode") "json") Index: runs.scm ================================================================== --- runs.scm +++ runs.scm @@ -894,11 +894,11 @@ ;; )) (set! keys (open-run-close db:get-keys db)) ;; have enough to process -target or -reqtarg here (if (args:get-arg "-reqtarg") (let* ((runconfigf (conc *toppath* "/runconfigs.config")) ;; DO NOT EVALUATE ALL - (runconfig (read-config runconfigf #f #f environ-patt: #f))) + (runconfig (read-config runconfigf #f #t environ-patt: #f))) (if (hash-table-ref/default runconfig (args:get-arg "-reqtarg") #f) (keys:target-set-args keys (args:get-arg "-reqtarg") args:arg-hash) (begin (debug:print 0 "ERROR: [" (args:get-arg "-reqtarg") "] not found in " runconfigf) (if db (sqlite3:finalize! db))