From 7da4122d918fa066ea93532ee9bc5e8b786c2c95 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 May 2017 15:32:28 -0700
Subject: [PATCH] Make write-xml port argument optional.

---
 src/xml/xml-output.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/xml/xml-output.scm b/src/xml/xml-output.scm
index 54f306c44..5075a705f 100644
--- a/src/xml/xml-output.scm
+++ b/src/xml/xml-output.scm
@@ -28,8 +28,12 @@ USA.
 
 (declare (usual-integrations))
 
-(define (write-xml xml port . options)
-  (write-xml* xml port options))
+(define (write-xml xml #!optional port . options)
+  (write-xml* xml
+	      (if (default-object? port)
+		  (current-output-port)
+		  port)
+	      options))
 
 (define (write-xml-file xml pathname . options)
   (call-with-output-file pathname
-- 
2.25.1