aboutsummaryrefslogtreecommitdiff
path: root/scm/dictrans.scm
diff options
context:
space:
mode:
Diffstat (limited to 'scm/dictrans.scm')
-rw-r--r--scm/dictrans.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm
index 6c55765..7161e2d 100644
--- a/scm/dictrans.scm
+++ b/scm/dictrans.scm
@@ -992,7 +992,7 @@ Informational options:
(getopt-long (command-line) grammar))
-(if (null? input-files)
+(if (and (null? input-files) (not cleanup-option))
(begin
(display "Input files not specified\n" (current-error-port))
(exit 1)))
@@ -1026,7 +1026,12 @@ Informational options:
(if cleanup-option
(cleanup-db conn))
-
+
+ (if (null? input-files)
+ (begin
+ (sql-connect-close conn)
+ (exit 0)))
+
(get-dict-index conn)
(insert-categories conn)

Return to:

Send suggestions and report system problems to the System administrator.