Add EVENT:NEW-RDF-GRAPH.

diff --git a/v7/src/xml/rdf-struct.scm b/v7/src/xml/rdf-struct.scm
index aac68d5e4b0290de41f1cefd06747660443d2dde..bb221d946b41a8c752b1884c7ab671910337dcb7 100644 (file)
--- a/v7/src/xml/rdf-struct.scm
+++ b/v7/src/xml/rdf-struct.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rdf-struct.scm,v 1.30 2007/08/02 04:40:16 cph Exp $
+$Id: rdf-struct.scm,v 1.31 2007/08/10 19:26:02 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -119,10 +119,12 @@ USA.
             '())))
     (hash-table/intern! rdf-graphs triples
       (lambda ()
-       (%make-rdf-graph triples)))))
+       (let ((graph (%make-rdf-graph triples)))
+         (event-distributor/invoke! event:new-rdf-graph graph)
+         graph)))))
 
-(define rdf-graphs
-  (make-equal-hash-table))
+(define rdf-graphs (make-equal-hash-table))
+(define event:new-rdf-graph (make-event-distributor))
 \f
 ;;;; Blank nodes
 

diff --git a/v7/src/xml/xml.pkg b/v7/src/xml/xml.pkg
index f34d6bcfd7b39fe377e17206cba8a2b122a39a83..96755aeefe70bb2fea3dd6c0781a15a11f93e115 100644 (file)
--- a/v7/src/xml/xml.pkg
+++ b/v7/src/xml/xml.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml.pkg,v 1.96 2007/08/02 04:40:41 cph Exp $
+$Id: xml.pkg,v 1.97 2007/08/10 19:26:03 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -552,6 +552,7 @@ USA.
          error:not-rdf-prefix-registry
          error:not-rdf-qname
          error:not-rdf-triple
+         event:new-rdf-graph
          event:new-rdf-triple
          for-each-rdf-triple
          guarantee-rdf-bnode