diff options
Diffstat (limited to 'scm/dictrans.scm')
-rw-r--r-- | scm/dictrans.scm | 9 |
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) |