Merge pull request #1014 from geoffhill/master
write-xexpr: consistently use argument port.
This commit is contained in:
commit
faa1028ef6
|
@ -131,7 +131,7 @@
|
||||||
(write-string/escape (cadr att) escape-attribute-table out)
|
(write-string/escape (cadr att) escape-attribute-table out)
|
||||||
(write-string "\"" out))
|
(write-string "\"" out))
|
||||||
(when insert-newlines?
|
(when insert-newlines?
|
||||||
(newline))
|
(newline out))
|
||||||
; Write end of opening tag
|
; Write end of opening tag
|
||||||
(if (and (null? content)
|
(if (and (null? content)
|
||||||
(case short
|
(case short
|
||||||
|
|
Loading…
Reference in New Issue
Block a user