From 879cc493c321f53177e6b8159676dc2959595208 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Mon, 26 Apr 2021 00:01:17 +0200 Subject: 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. --- drmaa/v1/low.scm | 10 +++++----- 1 file 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))) -- cgit v1.2.3