aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xscripts/ccwl8
1 files changed, 3 insertions, 5 deletions
diff --git a/scripts/ccwl b/scripts/ccwl
index 8e9d085..3001e5a 100755
--- a/scripts/ccwl
+++ b/scripts/ccwl
@@ -1,8 +1,8 @@
#!/usr/bin/env sh
-exec guile --no-auto-compile -s "$0" "$@"
+exec guile --no-auto-compile -e main -s "$0" "$@"
!#
;;; ccwl --- Concise Common Workflow Language
-;;; Copyright © 2021, 2022 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2021–2023 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of ccwl.
;;;
@@ -47,7 +47,7 @@ exec guile --no-auto-compile -s "$0" "$@"
(acons 'help #t result))))
(define main
- (match-lambda*
+ (match-lambda
((program "compile" args ...)
(let* ((args (args-fold args
(list (option (list #\t "to") #t #f
@@ -119,5 +119,3 @@ To get usage information for one of these sub-commands, run
program program)
(current-error-port))
(exit (assq 'help args))))))
-
-(apply main (command-line))