From 8d45cb6cf68ec3f6648678330c50f97c949dea1a Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Fri, 20 Jun 2025 16:40:03 +0100 Subject: workflow: Bind class variable with reduced scope. * ravanan/workflow.scm (workflow-scheduler): Bind class variable only in the else arm of the if condition. --- ravanan/workflow.scm | 6 +++--- 1 file 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{} 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{} 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) -- cgit v1.2.3