diff options
| -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)) |