#!/usr/bin/guile -s
!#

;;;; Copyright 2005 Juri Pakaste
;;;; 
;;;; This file is part of Lukutoukka.
;;;; 
;;;; Lukutoukka is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
;;;; the Free Software Foundation; either version 2 of the License, or
;;;; (at your option) any later version.
;;;; 
;;;; Lukutoukka is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;;; GNU General Public License for more details.
;;;; 
;;;; You should have received a copy of the GNU General Public License
;;;; along with Lukutoukka; if not, write to the Free Software
;;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

(define installation-prefix #f)

(if installation-prefix
    (begin
      (set! %load-path (cons (string-append installation-prefix "/lib")
                             %load-path))))

(use-modules (lukutoukkalib main))
(catch #t 
       (lambda () (lukutoukka-start (if installation-prefix installation-prefix "..")))
       (lambda (key . args)
         (format #t "exception caught at top level: ~s~%~s~%" key args)
         (backtrace)))