From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Oct 2004 02:48:51 +0000 (+0000)
Subject: Copy the string returned by XML-NAMESPACE-IRI-STRING.
X-Git-Tag: 20090517-FFI~1559
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a7ba747e659a26d5dad556852f63b12535c0a427;p=mit-scheme.git

Copy the string returned by XML-NAMESPACE-IRI-STRING.
---

diff --git a/v7/src/xml/xml-names.scm b/v7/src/xml/xml-names.scm
index 3b35223e9..7de854304 100644
--- a/v7/src/xml/xml-names.scm
+++ b/v7/src/xml/xml-names.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml-names.scm,v 1.6 2004/10/14 02:33:37 cph Exp $
+$Id: xml-names.scm,v 1.7 2004/10/14 02:48:51 cph Exp $
 
 Copyright 2003,2004 Massachusetts Institute of Technology
 
@@ -293,12 +293,15 @@ USA.
 (define-record-type <xml-namespace-iri>
     (%make-xml-namespace-iri string)
     xml-namespace-iri?
-  (string xml-namespace-iri-string))
+  (string %xml-namespace-iri-string))
 
 (define (guarantee-xml-namespace-iri object caller)
   (if (not (xml-namespace-iri? object))
       (error:not-xml-namespace-iri object caller)))
 
+(define (xml-namespace-iri-string iri)
+  (string-copy (%xml-namespace-iri-string iri)))
+
 (define (null-xml-namespace-iri? object)
   (eq? object null-namespace-iri))