From a7ba747e659a26d5dad556852f63b12535c0a427 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 14 Oct 2004 02:48:51 +0000 Subject: [PATCH] Copy the string returned by XML-NAMESPACE-IRI-STRING. --- v7/src/xml/xml-names.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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 (%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)) -- 2.25.1