Update sql-error-handler definitions.

git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@542 941c8c0f-9102-463b-b60b-cd22ce0e6858

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
@@ -15,32 +15,26 @@
 ;;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;
 
 (define-module (ellinika dico))
 
 (use-modules (guile-user)
 	     (ice-9 rdelim)
 	     (gamma sql)
 	     (xmltools dict)
 	     (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
 	 (lambda ()
 	   (sql-query conn query))
 	 (lambda args
 	   '())))
 
 ;; END of FIXME
 
 (define (dico-error err . rest)
   (with-output-to-port