diff options
| -rw-r--r-- | drmaa/v1/low.scm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/drmaa/v1/low.scm b/drmaa/v1/low.scm index 624c018..3003052 100644 --- a/drmaa/v1/low.scm +++ b/drmaa/v1/low.scm @@ -476,7 +476,17 @@ the current session will be affected." (DRMAA 'ERROR_STRING_BUFFER)) #true error-message))) -(define (wait job-id timeout) +(define* (wait job-id #:optional timeout) + "Wait for the completion of a job with identifier JOB-ID. If the +JOB-ID is the special symbol '*, wait for the completion of any job +that has been submitted during this session. + +TIMEOUT (an integer) specifies the number of seconds to block. If it +is not provided or is #FALSE this procedure will block forever. + +This procedure returns three values: the identifier of the job that +has completed, the status code of the job (an opaque value), and an +alist of resource usage statistics." (let ((timeout (or timeout (DRMAA 'TIMEOUT_WAIT_FOREVER))) (job-id-out |