Index: runs.scm ================================================================== --- runs.scm +++ runs.scm @@ -350,15 +350,14 @@ (if (runs:dat-load-mgmt-function runsdat)((runs:dat-load-mgmt-function runsdat))) (let* ((num-running (rmt:get-count-tests-running run-id)) (num-running-in-jobgroup (rmt:get-count-tests-running-in-jobgroup run-id jobgroup)) - (job-group-limit (let ((jobg-count (configf:lookup *configdat* "jobgroups" jobgroup))) - (if (string? jobg-count) - (string->number jobg-count) - jobg-count)))) - (if (> (+ num-running num-running-in-jobgroup) 0) + (job-group-limit (configf:lookup-number *configdat* "jobgroups" jobgroup))) + (if (and (number? num-running) ;; checking for number - had a crash where a non-number was returned. Not sure why. + (number? num-running-in-jobgroup) ;; probably can remove this when rmt switches away from http. + (> (+ num-running num-running-in-jobgroup) 0)) (runs:inc-can-run-more-tests-count runsdat)) ;; (set! *runs:can-run-more-tests-count* (+ *runs:can-run-more-tests-count* 1))) (if (not (eq? *last-num-running-tests* num-running)) (begin (debug:print 2 *default-log-port* "max-concurrent-jobs: " max-concurrent-jobs ", num-running: " num-running) (set! *last-num-running-tests* num-running)))