Export predicates for some key data structures. Allow use of wide

strings wherever they make sense.

diff --git a/v7/src/xml/xml-struct.scm b/v7/src/xml/xml-struct.scm
index 9730d0ff3e98efe4d7f5c787f70aa11e4a4fad57..ccc144cfde5808409e39b70e3391e22abce9c78a 100644 (file)
--- a/v7/src/xml/xml-struct.scm
+++ b/v7/src/xml/xml-struct.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml-struct.scm,v 1.14 2003/07/13 03:41:29 cph Exp $
+$Id: xml-struct.scm,v 1.15 2003/07/13 03:45:04 cph Exp $
 
 Copyright 2001,2002,2003 Massachusetts Institute of Technology
 
@@ -172,10 +172,11 @@ USA.
 
 (define (xml-attribute-value? object)
   (and (pair? object)
-       (list-of-type? object
-        (lambda (object)
-          (or (xml-char-data? object)
-              (xml-entity-ref? object))))))
+       (list-of-type? object xml-attribute-value-item?)))
+
+(define (xml-attribute-value-item? object)
+  (or (xml-char-data? object)
+      (xml-entity-ref? object)))
 
 (define (xml-content? object)
   (list-of-type? object xml-content-item?))

diff --git a/v7/src/xml/xml.pkg b/v7/src/xml/xml.pkg
index 0864ec89a626c1678ac414c8753eb0b5d471b7b4..ec5004dea30d8865aec54332ea22b8380353234a 100644 (file)
--- a/v7/src/xml/xml.pkg
+++ b/v7/src/xml/xml.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml.pkg,v 1.20 2003/07/13 03:41:25 cph Exp $
+$Id: xml.pkg,v 1.21 2003/07/13 03:45:01 cph Exp $
 
 Copyright 2001,2002,2003 Massachusetts Institute of Technology
 
@@ -114,6 +114,7 @@ USA.
          xml-!notation-name
          xml-!notation?
          xml-attribute-list?
+         xml-attribute-value-item?
          xml-attribute-value?
          xml-attribute?
          xml-char-data?