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 @@ (ellinika xlat) (ellinika config)) -(define (sql-error-handler err descr) - (format #t "cannot connect to the database") - (with-output-to-port - (current-error-port) - (lambda () - (display err) - (display ": ") - (display descr)))) +(define (sql-error-handler key func fmt fmtargs data) + (apply format (current-error-port) fmt fmtargs)) (define (my-sql-query conn query) (catch #t |