diff options
| -rw-r--r-- | drmaa/v1/low.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/drmaa/v1/low.scm b/drmaa/v1/low.scm index 4e9ac55..55fe3fd 100644 --- a/drmaa/v1/low.scm +++ b/drmaa/v1/low.scm @@ -543,7 +543,7 @@ alist of resource usage statistics." status-code error-message (DRMAA 'ERROR_STRING_BUFFER)) - (positive? exited) + (positive? (fh-object-ref exited)) error-message))) (define (w-exit-status status-code) @@ -555,7 +555,7 @@ alist of resource usage statistics." status-code error-message (DRMAA 'ERROR_STRING_BUFFER)) - exit-status + (fh-object-ref exit-status) error-message))) (define (w-if-signaled? status-code) @@ -568,7 +568,7 @@ alist of resource usage statistics." status-code error-message (DRMAA 'ERROR_STRING_BUFFER)) - (positive? signaled) + (positive? (fh-object-ref signaled)) error-message))) (define (w-termsig status-code) @@ -598,7 +598,7 @@ terminated job was created." status-code error-message (DRMAA 'ERROR_STRING_BUFFER)) - (positive? core-dumped) + (positive? (fh-object-ref core-dumped)) error-message))) (define (w-if-aborted? status-code) @@ -612,7 +612,7 @@ entering the running state." status-code error-message (DRMAA 'ERROR_STRING_BUFFER)) - (positive? aborted) + (positive? (fh-object-ref aborted)) error-message))) |