From 3629844743395c30fe420bddcea65f4b273f6de2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 16 Jan 2024 22:01:27 +0100 Subject: [PATCH] Convert condition to list. --- src/dokuwiki.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/dokuwiki.scm b/src/dokuwiki.scm index c246fe7..ca6d6e3 100644 --- a/src/dokuwiki.scm +++ b/src/dokuwiki.scm @@ -74,8 +74,8 @@ (handle-exceptions exn (let () - (log-warning "DokuWiki (~A) exception ~A" fname exn) - (stdout-printf "DokuWiki (~A) exception ~A" fname exn) + (log-warning "DokuWiki (~A) exception ~A" fname (condition->list exn)) + (stdout-printf "DokuWiki (~A) exception ~A" fname (condition->list exn)) '()) (with-input-from-file fname parse-dokuwiki-users-auth)))