diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-04-26 00:01:17 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-04-26 00:07:23 +0200 |
| commit | 879cc493c321f53177e6b8159676dc2959595208 (patch) | |
| tree | 116b690326f57d013ebff982d1dfe5aaab771403 | |
| parent | b9af31569509fb9aeab95586a2586c9fafb12963 (diff) | |
low: Unpack opaque bytestructures.
* drmaa/v1/low.scm (w-if-exited?, w-exit-status, w-if-signaled?,
w-coredump?, w-if-aborted?): Unpack the opaque bytestructure values.
| -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))) |