Minor change:

* scm/verbop.scm: Use module syntax.

1 files changed, 15 insertions, 4 deletions

diff --git a/scm/verbop.scm b/scm/verbop.scm
index 5192b87..ee86035 100644
--- a/scm/verbop.scm
+++ b/scm/verbop.scm
@@ -1,5 +1,7 @@
-#! =GUILE_BINDIR=/guile -s
-=AUTOGENERATED=
+#! /bin/sh
+# aside from this initial boilerplate, this is actually -*- scheme -*- code
+main='(module-ref (resolve-module '\''(src verbop)) '\'main')'
+exec ${GUILE-guile} -l $0 -c "(apply $main (command-line))" "$@"
 !#
 ;;;; This file is part of Ellinika
 ;;;; Copyright (C) 2011 Sergey Poznyakoff
@@ -17,6 +19,11 @@
 ;;;; You should have received a copy of the GNU General Public License
 ;;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;
+
+;;; Main procedure
+(define-module (src verbop)
+  :export (verbop))
+
 (use-modules (srfi srfi-1)
              (xmltools xmltrans)
 	     (ellinika elmorph)
@@ -742,6 +749,7 @@ Informational options:
 (define (cons? p)
   (and (pair? p) (not (list? p))))
 
+(define (main . args)
   (for-each
    (lambda (x)
      (cond
@@ -776,7 +784,7 @@ Informational options:
 	  (exit 0))))
       (else
        (set! input-files (cdr x)))))
- (getopt-long (command-line) grammar))
+   (getopt-long args grammar))
 
   (if (null? input-files)
       (begin
@@ -813,7 +821,10 @@ Informational options:
 	 (exit 1))) 
    input-files)
   
-(ellinika:sql-disconnect)
+  (ellinika:sql-disconnect))
+
+;;;; EOF
+