diff options
author | Arun Isaac | 2025-06-24 23:31:30 +0100 |
---|---|---|
committer | Arun Isaac | 2025-06-26 14:50:28 +0100 |
commit | 0d21ee18951d75ab30231049a59447e338afa14e (patch) | |
tree | 376129a4f703681e5e9f7d9af0d5364fa25dc29f | |
parent | e0fa0b5c37e902b53b5482c20c54308920202f73 (diff) | |
download | ravanan-0d21ee18951d75ab30231049a59447e338afa14e.tar.gz ravanan-0d21ee18951d75ab30231049a59447e338afa14e.tar.lz ravanan-0d21ee18951d75ab30231049a59447e338afa14e.zip |
workflow: Make scatter arguments optional in workflow->scheduler-proc.
* ravanan/workflow.scm (workflow->scheduler-proc): Make scatter and
scatter-method arguments optional.
-rw-r--r-- | ravanan/workflow.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/ravanan/workflow.scm b/ravanan/workflow.scm index d1bee1b..8b23b11 100644 --- a/ravanan/workflow.scm +++ b/ravanan/workflow.scm @@ -175,8 +175,10 @@ requirements and hints of the step." (assoc-ref* input "type")))) (assoc-ref input "id"))) -(define (workflow->scheduler-proc name cwl scheduler batch-system - scatter scatter-method) +(define* (workflow->scheduler-proc name cwl scheduler batch-system + #:optional + (scatter %nothing) + (scatter-method %nothing)) "Return a @code{<scheduler-proc>} object for @var{cwl} workflow named @var{name} scheduled using @var{scheduler} on @var{batch-system}. @var{scatter} and @var{scatter-method} are the CWL scattering properties of this step." @@ -571,8 +573,7 @@ area need not be shared. @var{store} is the path to the shared ravanan store. (run-with-state (let loop ((mstate ((scheduler-schedule scheduler) (workflow->scheduler-proc name cwl - scheduler batch-system - %nothing %nothing) + scheduler batch-system) inputs scheduler))) ;; Poll. |