diff options
Diffstat (limited to 'src/cgi-bin/nea.scm4')
-rw-r--r-- | src/cgi-bin/nea.scm4 | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/cgi-bin/nea.scm4 b/src/cgi-bin/nea.scm4 index b5a9af0..d6099d1 100644 --- a/src/cgi-bin/nea.scm4 +++ b/src/cgi-bin/nea.scm4 @@ -62,12 +62,7 @@ ifelse(IFACE,[CGI],(cgi:init)) (define (sql-error-handler err descr) (format #t "<h1 class=\"error\">~A</h1>\n" (_ "ΣΦΆΛΜΑ: σύνδεση με την βάση δεδομένων απέτυχε.")) - (with-output-to-port - (current-error-port) - (lambda () - (display err) - (display ": ") - (display descr)))) + (apply format (current-error-port) fmt fmtargs)) (defmacro catch-sql (expr) `(catch 'gsql-error |