From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 May 2017 22:32:28 +0000 (-0700)
Subject: Make write-xml port argument optional.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~65
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7da4122d918fa066ea93532ee9bc5e8b786c2c95;p=mit-scheme.git

Make write-xml port argument optional.
---

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