aboutsummaryrefslogtreecommitdiff
path: root/main.scm
diff options
context:
space:
mode:
Diffstat (limited to 'main.scm')
-rwxr-xr-x[-rw-r--r--]main.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/main.scm b/main.scm
index bcbadda..39f8da9 100644..100755
--- a/main.scm
+++ b/main.scm
@@ -1,9 +1,12 @@
+#!/usr/bin/env guile
+!#
+
(use-modules (ice-9 format) (ice-9 regex))
(define args (program-arguments))
(unless (<= 2 (length args) 3)
- (error (format #f "Syntax: ~a <DAY><a|b> [INFILE]\n"))
+ (error (format #f "Syntax: ~a <DAY><a|b> [INFILE]\n" (car args)))
(exit 1))
(define mtch (string-match "^([0-9]+)(a|b)$" (list-ref args 1)))