diff options
| author |  Tom Willemsen | 2012-12-29 02:54:58 +0100 |
|---|---|---|
| committer | Tom Willemsen | 2012-12-29 02:55:03 +0100 |
| commit | f379783d28e73b4613852fca58e0af3f8ea6ab87 (patch) | |
| tree | b727454593e654d56c1e2c75096b0e3a55fe7d27 /src/linkwave.scm | |
| parent | 27bdb9bdd130a91ed5dff6c973e6ba862e44fd1b (diff) | |
| download | markam-f379783d28e73b4613852fca58e0af3f8ea6ab87.tar.gz markam-f379783d28e73b4613852fca58e0af3f8ea6ab87.zip | |
Add version and help options to convert
Place the `version' and `display-version' items in `common.scm' so
they can be easily used by both executables.
Diffstat (limited to 'src/linkwave.scm')
| -rw-r--r-- | src/linkwave.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/linkwave.scm b/src/linkwave.scm index 12a2a9b..a84e3ee 100644 --- a/src/linkwave.scm +++ b/src/linkwave.scm @@ -21,7 +21,8 @@ ;;; Code: -(declare (uses paths)) +(declare (uses paths + common)) (require-extension sqlite3) (require-library posix srfi-4) @@ -76,10 +77,6 @@ (or (string= (substring str 0 7) "http://") (string= (substring str 0 8) "https://")))) -(define (display-version) - ;; Display linkwave's version number. - (format #t "linkwave v~a~%" version)) - (define (display-help) ;; Display linkwave's help message. (format #t (string-append |