From 1da5a277188a954d881316cb605962ee66053285 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 17 Mar 2022 22:14:18 +0100
Subject: Normalize errors.

---
 config.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'config.scm')

diff --git a/config.scm b/config.scm
index e03cef0b..641b3050 100644
--- a/config.scm
+++ b/config.scm
@@ -30,8 +30,9 @@
 
 (define (parse-html str)
   (catch 'misc-error
+    ;; resolve-interface throws misc-error on missing module.
+    ;; TODO what does html->sxml throw?
     (lambda ()
-      ;; resolve interface throws on missing module
       (let* ((gumbo (resolve-interface '(sxml gumbo)))
              (html->sxml (module-ref gumbo 'html->sxml)))
         (html->sxml str)))
-- 
cgit v1.2.3