aboutsummaryrefslogtreecommitdiff
path: root/config.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-03-17 22:14:18 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2022-03-28 14:17:01 +0200
commit1da5a277188a954d881316cb605962ee66053285 (patch)
tree4f77be46498f321d08bfaa072636e4fd252b4f9d /config.scm
parentUnsmarted define-config% (diff)
downloadcalp-1da5a277188a954d881316cb605962ee66053285.tar.gz
calp-1da5a277188a954d881316cb605962ee66053285.tar.xz
Normalize errors.
Diffstat (limited to 'config.scm')
-rw-r--r--config.scm3
1 files changed, 2 insertions, 1 deletions
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)))