From d25d0b48a10accd457c59c074ac9914bdbb56c71 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
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(-)

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