diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-12 12:52:03 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-12 12:52:03 +0000 |
commit | 6d9dc53914210f4f4053f04b9c86bb0324c31b5a (patch) | |
tree | 274dacf04c1ed151dd9b9e92b053ad96291c5f80 /scm | |
parent | e2dd9c96aecae04301fc6879b5e585dd9c1ff682 (diff) | |
download | ellinika-6d9dc53914210f4f4053f04b9c86bb0324c31b5a.tar.gz ellinika-6d9dc53914210f4f4053f04b9c86bb0324c31b5a.tar.bz2 |
Updated
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@219 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'scm')
-rw-r--r-- | scm/dictrans.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index e84c116..ec87ad8 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm @@ -80,7 +80,9 @@ ;;;; <X>string</X>* ;;;; <T ID="string" />* ;;;; </NODE> -;=UPDPATH= + +;;; Tailor this statement to your needs if necessary. +;=GUILE_COMMENT=;(set! %load-path (cons "=GUILE_SITE=" %load-path)) (use-modules (xmltools xmltrans) (gamma sql) @@ -104,7 +106,8 @@ (define input-files '()) (define sysconf-dir "=SYSCONFDIR=") - +(define config-file-name "ellinika.conf") + ;;; Load the site defaults (let ((rc-file (string-append sysconf-dir "/" config-file-name))) (if (file-exists? rc-file) |