From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 24 Aug 2008 06:27:20 +0000 (+0000)
Subject: Rename XML->STRING to XML->OCTETS; define alias for compatibility.
X-Git-Tag: 20090517-FFI~231
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3fddc015665b007cb9a37105fcbe4418af5df3b8;p=mit-scheme.git

Rename XML->STRING to XML->OCTETS; define alias for compatibility.
---

diff --git a/v7/src/xml/xml-output.scm b/v7/src/xml/xml-output.scm
index 09865a992..73a478f1f 100644
--- a/v7/src/xml/xml-output.scm
+++ b/v7/src/xml/xml-output.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml-output.scm,v 1.45 2008/07/26 05:45:36 cph Exp $
+$Id: xml-output.scm,v 1.46 2008/08/24 06:27:20 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -39,7 +39,7 @@ USA.
       (set-coding xml port)
       (write-xml-1 xml port options))))
 
-(define (xml->string xml . options)
+(define (xml->octets xml . options)
   (call-with-output-octets
    (lambda (port)
      (set-coding xml port)
diff --git a/v7/src/xml/xml.pkg b/v7/src/xml/xml.pkg
index 790ea6c44..240948067 100644
--- a/v7/src/xml/xml.pkg
+++ b/v7/src/xml/xml.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml.pkg,v 1.102 2008/01/30 20:02:43 cph Exp $
+$Id: xml.pkg,v 1.103 2008/08/24 06:27:16 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -300,9 +300,10 @@ USA.
   (files "xml-output")
   (parent (runtime xml))
   (export ()
+	  (xml->string xml->octets)
 	  write-xml
 	  write-xml-file
-	  xml->string
+	  xml->octets
 	  xml->wide-string))
 
 (define-package (runtime xml html)