From f379783d28e73b4613852fca58e0af3f8ea6ab87 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sat, 29 Dec 2012 02:54:58 +0100
Subject: 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.
---
 src/linkwave.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/linkwave.scm')

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
-- 
cgit v1.3-2-g0d8e