Actually perform the choice operation.
This commit is contained in:
parent
05f7daf0e9
commit
a8e07b738b
1 changed files with 8 additions and 7 deletions
|
|
@ -1117,13 +1117,14 @@
|
|||
(lambda ()
|
||||
(let loop ()
|
||||
(put-message channel '(check-for-idle-resources))
|
||||
(when (choice-operation
|
||||
(when (perform-operation
|
||||
(choice-operation
|
||||
(wrap-operation
|
||||
(sleep-operation idle-seconds)
|
||||
(const #t))
|
||||
(wrap-operation
|
||||
(wait-operation destroy-condition)
|
||||
(const #f)))
|
||||
(const #f))))
|
||||
(loop))))))
|
||||
|
||||
(with-exception-handler
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue