diff options
| -rw-r--r-- | ravanan/workflow.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/ravanan/workflow.scm b/ravanan/workflow.scm index 1d3578a..d1bee1b 100644 --- a/ravanan/workflow.scm +++ b/ravanan/workflow.scm @@ -63,7 +63,7 @@ (inputs job-failure-inputs)) (define-immutable-record-type <scheduler-proc> - (scheduler-proc name cwl-or-propnet formal-inputs formal-outputs scatter scatter-method) + (-scheduler-proc name cwl-or-propnet formal-inputs formal-outputs scatter scatter-method) scheduler-proc? (name scheduler-proc-name) (cwl-or-propnet scheduler-proc-cwl-or-propnet) @@ -72,6 +72,11 @@ (scatter scheduler-proc-scatter) (scatter-method scheduler-proc-scatter-method)) +(define* (scheduler-proc name cwl-or-propnet formal-inputs formal-outputs + #:optional (scatter %nothing) (scatter-method %nothing)) + (-scheduler-proc name cwl-or-propnet formal-inputs formal-outputs + scatter scatter-method)) + (define-immutable-record-type <command-line-tool-state> (command-line-tool-state job-state formal-outputs) command-line-tool-state? @@ -281,9 +286,7 @@ object." (schedule (scheduler-proc name cwl-or-propnet (scheduler-proc-formal-inputs proc) - (scheduler-proc-formal-outputs proc) - %nothing - %nothing) + (scheduler-proc-formal-outputs proc)) ;; Replace scattered inputs with single ;; elements. (apply assoc-set |