diff options
| -rwxr-xr-x | bin/tissue | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -1,6 +1,6 @@ #!/usr/bin/env sh # -*- mode: scheme; -*- -exec guile --no-auto-compile -s "$0" "$@" +exec guile --no-auto-compile -e main -s "$0" "$@" !# ;;; tissue --- Text based issue tracker @@ -489,7 +489,7 @@ Pull latest from upstream repositories. hostname) (exit #f))))))))) -(define (main . args) +(define (main args) (guard (c ((condition-git-error c) => (lambda (git-error) (display (git-error-message git-error) (current-error-port)) @@ -549,6 +549,4 @@ Pull latest from upstream repositories. args)))))) ;; tissue is an alias for `tissue search' ((_) - (main "tissue" "search"))))) - -(apply main (command-line)) + (main '("tissue" "search")))))) |