diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-12 13:51:36 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-12 13:51:36 +0000 |
commit | a46550c788f64087d9c8ab6aaa797c3b2459c10f (patch) | |
tree | 19e32d7142f29ff6420cccd038d20677ff7cc200 /scm | |
parent | fcf560f10c3e597fd74fabbddd2abcb7856dd7c1 (diff) | |
download | ellinika-a46550c788f64087d9c8ab6aaa797c3b2459c10f.tar.gz ellinika-a46550c788f64087d9c8ab6aaa797c3b2459c10f.tar.bz2 |
Exit if --check was given
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@227 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'scm')
-rw-r--r-- | scm/dictrans.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index 5d7f38e..4c365c2 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm @@ -797,7 +797,8 @@ (lambda (x) (if (not (xmltrans:parse-file x)) (exit 1))) - input-files))) + input-files) + (exit 0))) (let ((conn (sql-connect sql-iface sql-host sql-port sql-database sql-username sql-password))) |