summaryrefslogtreecommitdiff
path: root/drmaa
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2021-04-26 08:47:55 +0200
committerRicardo Wurmus <rekado@elephly.net>2021-04-26 08:48:34 +0200
commitd25d0b48a10accd457c59c074ac9914bdbb56c71 (patch)
treeefb5f27025e86838ba06caf5378c40164aa16ad7 /drmaa
parentd8985dc42165b1f2473f55ac5c2aa8785dc090ee (diff)
low: synchronize: Make some arguments optional.
Diffstat (limited to 'drmaa')
-rw-r--r--drmaa/v1/low.scm6
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))