From 92570260b7a9b0bae4367a92438f8f9f25f594bf Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 6 Mar 2021 02:16:43 +0530
Subject: Define input=? predicate.

* ccwl/ccwl.scm (input=?): New function.
---
 ccwl/ccwl.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 26ea69c..a9745b1 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -107,6 +107,10 @@
                      additional-inputs)
              outputs))
 
+(define (input=? input1 input2)
+  (string=? (input-id input1)
+            (input-id input2)))
+
   "Build a Workflow class CWL workflow."
   `((cwlVersion . "v1.1")
     (class . Workflow)
-- 
cgit v1.2.3