287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
|
(null? prereqs-not-met))
;; no loop - drop though and use the loop at the bottom
(run:test db run-id runname keyvallst test-record flags #f)
;; else the run is stuck, temporarily or permanently
(let ((newtal (append tal (list hed))))
;; couldn't run, take a breather
(thread-sleep! 1)
(loop (car tal)(cdr tal))))))
;; case where an items came in as a list been processed
((and (list? items) ;; thus we know our items are already calculated
(not itemdat)) ;; and not yet expanded into the list of things to be done
(if (>= *verbosity* 1)(pp items))
;; (if (>= *verbosity* 5)
;; (begin
|
|
|
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
|
(null? prereqs-not-met))
;; no loop - drop though and use the loop at the bottom
(run:test db run-id runname keyvallst test-record flags #f)
;; else the run is stuck, temporarily or permanently
(let ((newtal (append tal (list hed))))
;; couldn't run, take a breather
(thread-sleep! 1)
(loop (car newtal)(cdr newtal))))))
;; case where an items came in as a list been processed
((and (list? items) ;; thus we know our items are already calculated
(not itemdat)) ;; and not yet expanded into the list of things to be done
(if (>= *verbosity* 1)(pp items))
;; (if (>= *verbosity* 5)
;; (begin
|