summaryrefslogtreecommitdiffabout
path: root/src/ellinika/dico.scm
Side-by-side diff
Diffstat (limited to 'src/ellinika/dico.scm') (more/less context) (ignore whitespace changes)
-rw-r--r--src/ellinika/dico.scm10
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

Return to:

Send suggestions and report system problems to the System administrator.