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

Update variable name per Alex's suggestion.

Browse source
This commit is contained in:
Arthur A. Gleckler 2022-10-11 07:17:31 -07:00
parent 4e24ad01e0
commit 24339e51e7
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/chibi/sxml.scm
View file

@ -97,7 +97,7 @@
(let lp ((sxml (if (and (pair? sxml) (eq? '*TOP* (car sxml)))
(cdr sxml)
sxml))
(i 0))
(depth 0))
(cond
((pair? sxml)
(let ((tag (car sxml))
@ -119,21 +119,21 @@
(eq? '@ (caar rest)))
(when (and indent? (memq tag indentable-elements))
(newline out)
(indent i out))
(indent depth out))
(display (html-tag->string tag (cdar rest)) out)
(for-each (lambda (x) (lp x (+ 1 i))) (cdr rest))
(for-each (lambda (x) (lp x (+ 1 depth))) (cdr rest))
(unless (and (null? (cdr rest)) (memq tag void-elements))
(display "</" out) (display tag out) (display ">" out)))
(else
(when (and indent? (memq tag indentable-elements))
(newline out)
(indent i out))
(indent depth out))
(display (html-tag->string tag '()) out)
(for-each (lambda (x) (lp x (+ 1 i))) rest)
(for-each (lambda (x) (lp x (+ 1 depth))) rest)
(unless (and (null? rest) (memq tag void-elements))
(display "</" out) (display tag out) (display ">" out)))))
(else
(for-each (lambda (x) (lp x (+ 1 i))) sxml)))))
(for-each (lambda (x) (lp x (+ 1 depth))) sxml)))))
((null? sxml))
(else (html-display-escaped-string sxml out))))))