Merge pull request #1014 from geoffhill/master

write-xexpr: consistently use argument port.
This commit is contained in:
Jay McCarthy 2015-08-15 07:22:05 -04:00
commit faa1028ef6

View File

@ -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