diff options
Diffstat (limited to 'drmaa/v1/high.scm')
| -rw-r--r-- | drmaa/v1/high.scm | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/drmaa/v1/high.scm b/drmaa/v1/high.scm index bef0680..9b3d5a2 100644 --- a/drmaa/v1/high.scm +++ b/drmaa/v1/high.scm @@ -63,7 +63,6 @@ (and (memq #:required? options) (or (member keyword initargs) (raise (condition - (&drmaa-error) (&formatted-message (format "~a: required field `~a' missing.~%") (arguments (list (class-name klass) @@ -80,7 +79,6 @@ ;; TODO: allow for better error messages (or (validate value) (raise (condition - (&drmaa-error) (&formatted-message (format "~a: field `~a' has the wrong type.~%") (arguments (list (class-name klass) @@ -95,7 +93,6 @@ (() #t) (extraneous (raise (condition - (&drmaa-error) (&formatted-message (format "~a: extraneous fields: ~{~a ~}~%") (arguments (list (class-name klass) @@ -180,7 +177,6 @@ (lambda (item) (or (member item '(error input output)) (raise (condition - (&drmaa-error) (&message (message "transfer-files: must be a list containing the symbols error, input, or output.")))))) value))) @@ -215,7 +211,6 @@ (_ #false)) value)) (raise (condition - (&drmaa-error) (&message (message "environment: must be a list of pairs.")))))) #:transform (lambda (value) @@ -232,7 +227,6 @@ (or (and (list? value) (every string? value)) (raise (condition - (&drmaa-error) (&message (message "emails: must be a list of strings.")))))) #:drmaa-name (low:DRMAA 'V_EMAIL)) |