Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add option to ignore escaping

Browse source
This commit is contained in:
Ekaitz Zárraga 2019-10-23 20:06:59 +02:00
parent f4b0277d01
commit 12f941dbfe
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/sxml.scm
View file

@ -93,6 +93,9 @@
(display (html-tag->string tag (cdar rest)) out) (display (html-tag->string tag (cdar rest)) out)
(for-each lp (cdr rest)) (for-each lp (cdr rest))
(display "</" out) (display tag out) (display ">" out)) (display "</" out) (display tag out) (display ">" out))
((and (eq? '@raw tag)
(string? (car rest)))
(display (car rest) out))
(else (else
(display (html-tag->string tag '()) out) (display (html-tag->string tag '()) out)
(for-each lp rest) (for-each lp rest)