diff options
| author | Arun Isaac | 2025-06-20 16:40:03 +0100 |
|---|---|---|
| committer | Arun Isaac | 2025-06-26 14:50:27 +0100 |
| commit | 8d45cb6cf68ec3f6648678330c50f97c949dea1a (patch) | |
| tree | 2c54951462f90250bcb293cba934b9cd34bf88e4 | |
| parent | bce9274404ac281fd6d5782bd3398f9e7d230324 (diff) | |
| download | ravanan-8d45cb6cf68ec3f6648678330c50f97c949dea1a.tar.gz ravanan-8d45cb6cf68ec3f6648678330c50f97c949dea1a.tar.lz ravanan-8d45cb6cf68ec3f6648678330c50f97c949dea1a.zip | |
workflow: Bind class variable with reduced scope.
* ravanan/workflow.scm (workflow-scheduler): Bind class variable only
in the else arm of the if condition.
| -rw-r--r-- | ravanan/workflow.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ravanan/workflow.scm b/ravanan/workflow.scm index 5452ec4..b8fff80 100644 --- a/ravanan/workflow.scm +++ b/ravanan/workflow.scm @@ -257,8 +257,7 @@ object or a @code{<scheduler-proc>} object." (scatter (from-maybe (scheduler-proc-scatter proc) #f)) (scatter-method (from-maybe (scheduler-proc-scatter-method proc) - #f)) - (class (assoc-ref* cwl "class"))) + #f))) (if scatter (case scatter-method ((dot-product) @@ -281,7 +280,8 @@ object or a @code{<scheduler-proc>} object." ((nested-cross-product flat-cross-product) (error scatter-method "Scatter method not implemented yet"))) - (let* ((formal-inputs (assoc-ref* cwl "inputs")) + (let* ((class (assoc-ref* cwl "class")) + (formal-inputs (assoc-ref* cwl "inputs")) ;; We need to resolve inputs after adding defaults since the ;; default values may contain uninterned File objects. (inputs (resolve-inputs (add-defaults inputs formal-inputs) |