aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ravanan/workflow.scm6
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)