From d25d0b48a10accd457c59c074ac9914bdbb56c71 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Mon, 26 Apr 2021 08:47:55 +0200 Subject: low: synchronize: Make some arguments optional. --- drmaa/v1/low.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'drmaa') 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)) -- cgit v1.2.3