207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
(else
;; NOTE: This is actually the case of *no* waitons! ;; (debug:print-error 0 *default-log-port* "something went wrong in processing waitons for test " test-name)
""))))
(newwaitons (if (and (list? global-waitons)
(not (null? global-waitons)))
(begin
(debug:print 0 *default-log-port* "Adding global waitons " global-waitons)
(append newwaitons-tmp global-waitons))
newwaitons-tmp)))
(values
;; the waitons
(filter (lambda (x)
(if (hash-table-ref/default all-tests-registry x #f)
#t
(begin
|
|
>
>
|
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
|
(else
;; NOTE: This is actually the case of *no* waitons! ;; (debug:print-error 0 *default-log-port* "something went wrong in processing waitons for test " test-name)
""))))
(newwaitons (if (and (list? global-waitons)
(not (null? global-waitons)))
(begin
(debug:print 0 *default-log-port* "Adding global waitons " global-waitons)
(append newwaitons-tmp (filter (lambda (x) ;; remove self from global waitons
(not (equal? x test-name)))
global-waitons)))
newwaitons-tmp)))
(values
;; the waitons
(filter (lambda (x)
(if (hash-table-ref/default all-tests-registry x #f)
#t
(begin
|