write-xexpr: consistently use parameter port.

2015-08-15 00:41:46 -07:00 · 2015-08-15 00:41:46 -07:00 · be66fde64c
commit be66fde64c
parent 1753335d34
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