From cde06178635edc14f5bb28273791f9b406995de6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 21 Mar 2021 15:44:59 +0530
Subject: Pull out cwl-version as a separate variable.

* ccwl/ccwl.scm (%cwl-version): New variable.
(workflow, command->cwl): Use %cwl-version.
---
 ccwl/ccwl.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 1923e66..e920e81 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -19,6 +19,8 @@
             pipeline
             write-cwl))
 
+(define %cwl-version "v1.1")
+
 (define-immutable-record-type <input>
   (make-input id type label default source prefix other)
   input?
@@ -172,7 +174,7 @@ re-matched."
          ;; the outside world.
          (interface-inputs (remove input-source inputs)))
     (make-step id
-               `((cwlVersion . "v1.1")
+               `((cwl-version . ,%cwl-version)
                  (class . Workflow)
                  (requirements (Subworkflow-feature-requirement))
                  ,@other
@@ -242,7 +244,7 @@ re-matched."
     ,@(output-other output)))
 
 (define (command->cwl command)
-  `((cwl-version . "v1.1")
+  `((cwl-version . ,%cwl-version)
     (class . Command-line-tool)
     ,@(command-other command)
     (arguments . ,(list->vector (map (lambda (arg)
-- 
cgit v1.2.3