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 09865a99271d5f8ebe64b7b5df2c5d677c629956..73a478f1f93dd928c58d198814e57f8dc76667e0 100644 (file)
--- 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 790ea6c44bf9c23f0d2e43c82484ee867e20ea63..240948067fe65791cb59687d3c0a5eea5c543a68 100644 (file)
--- 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)