workflow: Introduce optional fields in scheduler-proc constructor.

* ravanan/workflow.scm (<scheduler-proc>): Rename constructor to
-scheduler-proc.
(scheduler-proc): New function.

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