Merge pull request #1014 from geoffhill/master

write-xexpr: consistently use argument port.
2015-08-15 07:22:05 -04:00 · 2015-08-15 07:22:05 -04:00 · faa1028ef6
commit faa1028ef6
parent 1753335d34 be66fde64c
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/xml/private/xexpr.rkt
+++ b/racket/collects/xml/private/xexpr.rkt
@ -131,7 +131,7 @@
         (write-string/escape (cadr att) escape-attribute-table out)
         (write-string "\"" out))
       (when insert-newlines?
-         (newline))
+         (newline out))
       ; Write end of opening tag
       (if (and (null? content)
                (case short