summaryrefslogtreecommitdiffabout
path: root/src/ellinika
authorSergey Poznyakoff <gray@gnu.org.ua>2010-03-15 20:16:21 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2010-03-15 20:16:21 (GMT)
commit97cb49f1c40856804ccac5925459187b4d3724bb (patch) (unidiff)
treeacf3fbd4f163ccf1970d0fc61efc6801c1da0dec /src/ellinika
parent150f2f64e4e580c0d6ab75d4bee150a4369cc4f1 (diff)
downloadellinika-97cb49f1c40856804ccac5925459187b4d3724bb.tar.gz
ellinika-97cb49f1c40856804ccac5925459187b4d3724bb.tar.bz2
Update sql-error-handler definitions.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@542 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'src/ellinika') (more/less context) (show 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 @@
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

Return to:

Send suggestions and report system problems to the System administrator.