diff options
-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))) |