From efc929b3f65595255f57f069769a60a4544b9c72 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 28 Sep 2023 23:47:45 +0100
Subject: scripts: Support returning command objects from ccwl files.

* scripts/ccwl (main): Replace workflow->cwl and workflow->dot with
workflow-or-command->cwl and workflow-or-command->dot.
---
 scripts/ccwl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scripts')

diff --git a/scripts/ccwl b/scripts/ccwl
index 6eb4792..fe8d114 100755
--- a/scripts/ccwl
+++ b/scripts/ccwl
@@ -111,8 +111,8 @@ Compile SOURCE-FILE.
            (set! %load-should-auto-compile #f)
            (let ((to (assq-ref args 'to)))
              ((cond
-               ((string=? to "cwl") workflow->cwl)
-               ((string=? to "dot") workflow->dot))
+               ((string=? to "cwl") workflow-or-command->cwl)
+               ((string=? to "dot") workflow-or-command->dot))
               (guard (exception
                       ;; Handle syntax violation exceptions by reporting
                       ;; them and exiting.
-- 
cgit v1.2.3