From a46550c788f64087d9c8ab6aaa797c3b2459c10f Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Tue, 12 Oct 2004 13:51:36 +0000
Subject: Exit if --check was given

git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@227 941c8c0f-9102-463b-b60b-cd22ce0e6858
---
 scm/dictrans.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scm/dictrans.scm')

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)))
-- 
cgit v1.2.1