diff options
Diffstat (limited to 'src/ellinika/dico.scm')
-rw-r--r-- | src/ellinika/dico.scm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/ellinika/dico.scm b/src/ellinika/dico.scm index 7c04db2..f9a6f63 100644 --- a/src/ellinika/dico.scm +++ b/src/ellinika/dico.scm | |||
@@ -24,14 +24,8 @@ | |||
24 | (ellinika xlat) | 24 | (ellinika xlat) |
25 | (ellinika config)) | 25 | (ellinika config)) |
26 | 26 | ||
27 | (define (sql-error-handler err descr) | 27 | (define (sql-error-handler key func fmt fmtargs data) |
28 | (format #t "cannot connect to the database") | 28 | (apply format (current-error-port) fmt fmtargs)) |
29 | (with-output-to-port | ||
30 | (current-error-port) | ||
31 | (lambda () | ||
32 | (display err) | ||
33 | (display ": ") | ||
34 | (display descr)))) | ||
35 | 29 | ||
36 | (define (my-sql-query conn query) | 30 | (define (my-sql-query conn query) |
37 | (catch #t | 31 | (catch #t |