From 12f941dbfe6db5a5ab89f61a18a52419abe9dac0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ekaitz=20Z=C3=A1rraga?= <ekaitz.zarraga@protonmail.com>
Date: Wed, 23 Oct 2019 20:06:59 +0200
Subject: [PATCH] Add option to ignore escaping

---
 lib/chibi/sxml.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/chibi/sxml.scm b/lib/chibi/sxml.scm
index 600c614d..2f5e988a 100644
--- a/lib/chibi/sxml.scm
+++ b/lib/chibi/sxml.scm
@@ -93,6 +93,9 @@
                   (display (html-tag->string tag (cdar rest)) out)
                   (for-each lp (cdr rest))
                   (display "</" out) (display tag out) (display ">" out))
+                 ((and (eq? '@raw tag)
+                       (string? (car rest)))
+                  (display (car rest) out))
                  (else
                   (display (html-tag->string tag '()) out)
                   (for-each lp rest)