Index: runs.scm ================================================================== --- runs.scm +++ runs.scm @@ -87,10 +87,14 @@ (begin (debug:print 0 "ERROR: [" (args:get-arg "-reqtarg") "] not found in " runconfigf) (if db (sqlite3:finalize! db)) (exit 1))) ;; Now have runconfigs data loaded, set environment vars + + ;; Only now can we calculate the testpatt + (set! testpatt (common:args-get-testpatt)) + (for-each (lambda (section) (for-each (lambda (varval) (set! envdat (append envdat (list varval))) (safe-setenv (car varval)(cadr varval))) (configf:get-section runconfig section)))