diff options
| author | Arun Isaac | 2023-09-28 23:47:45 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-09-28 23:47:45 +0100 |
| commit | efc929b3f65595255f57f069769a60a4544b9c72 (patch) | |
| tree | c5cba540cfa067d95d2faf947708e3da462c044b /scripts | |
| parent | a9039b5d116e10b8cb2213a276b071a234366842 (diff) | |
| download | ccwl-efc929b3f65595255f57f069769a60a4544b9c72.tar.gz ccwl-efc929b3f65595255f57f069769a60a4544b9c72.tar.lz ccwl-efc929b3f65595255f57f069769a60a4544b9c72.zip | |
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.
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/ccwl | 4 |
1 files changed, 2 insertions, 2 deletions
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. |