From 1bbefbe6ef5b18c7b6f72d7fb9abd759c3fbca3d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 11 Jun 2022 20:29:37 +0200
Subject: Extend sxml->html to copy procedures output verbatim.

sxml->xml already allows arbitrary strings to be included through
procedures current output port. This adds the same feature to sxml->html
for feature parity.
---
 module/sxml/html.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/module/sxml/html.scm b/module/sxml/html.scm
index 94015460..473cfd9e 100644
--- a/module/sxml/html.scm
+++ b/module/sxml/html.scm
@@ -364,6 +364,8 @@ ist ATTRS and the child nodes in BODY."
      (pi->html type body port))
     (('*TOP* nodes ...)
      (for-each (cut sxml->html <> port) nodes))
+    ((? procedure? proc) ; is whole tree a procedure
+     (with-output-to-port port proc))
     (((? symbol? tag) ('@ attrs ...) body ...)
      (element->html tag attrs body port))
     (((? symbol? tag) body ...)
-- 
cgit v1.2.3