diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-04-26 08:47:55 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-04-26 08:48:34 +0200 |
| commit | d25d0b48a10accd457c59c074ac9914bdbb56c71 (patch) | |
| tree | efb5f27025e86838ba06caf5378c40164aa16ad7 | |
| parent | d8985dc42165b1f2473f55ac5c2aa8785dc090ee (diff) | |
low: synchronize: Make some arguments optional.
| -rw-r--r-- | drmaa/v1/low.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/drmaa/v1/low.scm b/drmaa/v1/low.scm index 09628ed..0d71e32 100644 --- a/drmaa/v1/low.scm +++ b/drmaa/v1/low.scm @@ -476,7 +476,11 @@ the current session will be affected." (job-status->symbol status-code) error-message))) -(define (synchronize job-ids timeout dispose?) +(define* (synchronize job-ids #:optional timeout dispose?) + "Wait for all jobs with the given JOB-IDS to run to completion. +Wait forever unless TIMEOUT, an integer representing seconds, is +provided. When DISPOSE? is provided, the status code for each of the +jobs will be discarded." (let ((timeout (or timeout (DRMAA 'TIMEOUT_WAIT_FOREVER))) (job-ids (make-cstr-array job-ids)) |