diff options
Diffstat (limited to 'drmaa/v1/low.scm')
| -rw-r--r-- | drmaa/v1/low.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/drmaa/v1/low.scm b/drmaa/v1/low.scm index 52d37f3..624c018 100644 --- a/drmaa/v1/low.scm +++ b/drmaa/v1/low.scm @@ -499,7 +499,15 @@ the current session will be affected." (pointer-to rusage) error-message (DRMAA 'ERROR_STRING_BUFFER)) - (values job-id-out status-code (extract-values rusage)) + (values job-id-out + status-code + (map (lambda (value) + (or (and=> (string-index value #\=) + (lambda (split-point) + (cons (string-take value split-point) + (string-drop value (1+ split-point))))) + (cons value value))) + (extract-values rusage))) error-message))) (define (w-if-exited? status-code) |