about summary refs log tree commit diff
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)