diff options
| -rwxr-xr-x | scripts/ccwl.in | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/scripts/ccwl.in b/scripts/ccwl.in index d0145d7..8093fa9 100755 --- a/scripts/ccwl.in +++ b/scripts/ccwl.in @@ -29,15 +29,18 @@ (ccwl ccwl) (ccwl cwl)) -(match (command-line) - ((_ "compile" input-file) - ;; FIXME: Compiling ccwl files fails since the workflow macro is - ;; unable to access command definitions. - (set! %load-should-auto-compile #f) - (workflow->cwl (load (canonicalize-path input-file)) - (current-output-port))) - ((program _ ...) - (format (current-error-port) - "Usage: ~a compile input-file~%" - program) - (exit #f))) +(define main + (match-lambda* + ((_ "compile" input-file) + ;; FIXME: Compiling ccwl files fails since the workflow macro is + ;; unable to access command definitions. + (set! %load-should-auto-compile #f) + (workflow->cwl (load (canonicalize-path input-file)) + (current-output-port))) + ((program _ ...) + (format (current-error-port) + "Usage: ~a compile input-file~%" + program) + (exit #f)))) + +(apply main (command-line)) |