low: wait: Return alist instead of list of equal-separated strings.

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)