diff options
Diffstat (limited to 'drmaa/v1/low.scm')
| -rw-r--r-- | drmaa/v1/low.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/drmaa/v1/low.scm b/drmaa/v1/low.scm index 93f7f42..97e9a67 100644 --- a/drmaa/v1/low.scm +++ b/drmaa/v1/low.scm @@ -18,6 +18,7 @@ (define-module (drmaa v1 low) #:use-module (drmaa v1 ffi) + #:use-module (drmaa errors) #:use-module (bytestructures guile) #:use-module (system foreign) #:use-module (system ffi-help-rt) @@ -100,11 +101,11 @@ STRING-LIST." ((eq? ret (DRMAA 'ERRNO_SUCCESS)) success) (else (raise (condition + (&drmaa-error (code ret)) (&message (message - (format #false "~a (~a)" - (char*->string error-message) - ret)))))))) + (format #false "~a" + (char*->string error-message))))))))) (define (DRMAA sym) (or (drmaa-v1-ffi-symbol-val (symbol-append 'DRMAA_ sym)) |