diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-02-16 18:18:35 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-02-16 18:18:35 +0100 |
| commit | 734d79cdea31eeee49fc0f429ff12790eca8bb88 (patch) | |
| tree | 27833f93c4e19dd2570d0de4835c7b1559420402 /drmaa | |
| parent | 771637559a1c0440757ad78c62ea9e736ec6a8ba (diff) | |
high: Remove most init values.
Diffstat (limited to 'drmaa')
| -rw-r--r-- | drmaa/v1/high.scm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/drmaa/v1/high.scm b/drmaa/v1/high.scm index 9b3d5a2..8751da7 100644 --- a/drmaa/v1/high.scm +++ b/drmaa/v1/high.scm @@ -138,7 +138,6 @@ (join-files? #:accessor job-template-join-files? #:init-keyword #:join-files? - #:init-value #false #:valid? boolean? #:transform (lambda (value) (if value "y" "n")) @@ -146,7 +145,6 @@ (block-email? #:accessor job-template-block-email? #:init-keyword #:block-email? - #:init-value #false #:valid? boolean? #:transform (lambda (value) (if value "0" "1")) @@ -155,22 +153,18 @@ (input-path #:accessor job-template-input-path #:init-keyword #:input-path - #:init-value "" #:drmaa-name (low:DRMAA 'INPUT_PATH)) (output-path #:accessor job-template-output-path #:init-keyword #:output-path - #:init-value "" #:drmaa-name (low:DRMAA 'OUTPUT_PATH)) (error-path #:accessor job-template-error-path #:init-keyword #:error-path - #:init-value "" #:drmaa-name (low:DRMAA 'ERROR_PATH)) (transfer-files #:accessor job-template-transfer-files #:init-keyword #:transfer-files - #:init-value (list) #:valid? (lambda (value) (and (list? value) (for-each @@ -196,13 +190,11 @@ (native-specification #:accessor job-template-native-specification #:init-keyword #:native-specification - #:init-value "" #:drmaa-name (low:DRMAA 'NATIVE_SPECIFICATION)) (environment #:accessor job-template-environment #:init-keyword #:environment - #:init-value (list) #:valid? (lambda (value) (or (and (list? value) (for-each @@ -222,7 +214,6 @@ (emails #:accessor job-template-emails #:init-keyword #:emails - #:init-value (list) #:valid? (lambda (value) (or (and (list? value) (every string? value)) @@ -234,7 +225,6 @@ (start-time #:accessor job-template-start-time #:init-keyword #:start-time - #:init-form (current-date) #:valid? date? #:transform (lambda (value) (date->string value "~Y/~m/~d ~H:~M:~S")) |