Implement WRITE-RDF/TURTLE-TRIPLE.

diff --git a/v7/src/xml/turtle.scm b/v7/src/xml/turtle.scm
index 477a748d635fadd2850f9adb89c19bb18a34c168..abf1236d9ebf9a8316f6bae8ea7e7ae81b950dde 100644 (file)
--- a/v7/src/xml/turtle.scm
+++ b/v7/src/xml/turtle.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: turtle.scm,v 1.30 2007/08/14 02:57:34 cph Exp $
+$Id: turtle.scm,v 1.31 2007/08/16 14:42:07 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -620,12 +620,13 @@ USA.
   (write-string expansion port)
   (write-string "> ." port)
   (newline port))
-\f
+
 (define (write-rdf/turtle-triples graph port)
-  (write-triples (rdf-graph-triples graph)
-                0
-                port))
+  (write-triples (rdf-graph-triples graph) 0 port))
 
+(define (write-rdf/turtle-triple triple port)
+  (write-triples (list triple) 0 port))
+\f
 (define (write-triples triples indentation port)
   (write-top-level triples
                   indentation

diff --git a/v7/src/xml/xml.pkg b/v7/src/xml/xml.pkg
index 8cd3003472d83e4643277219a058caad64136c8e..33a2bc704a0077e2102f63e7397f000a2e8eaa3e 100644 (file)
--- a/v7/src/xml/xml.pkg
+++ b/v7/src/xml/xml.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml.pkg,v 1.98 2007/08/13 17:17:47 cph Exp $
+$Id: xml.pkg,v 1.99 2007/08/16 14:42:08 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -633,6 +633,7 @@ USA.
          write-rdf/turtle-file
          write-rdf/turtle-literal
          write-rdf/turtle-prefix
+         write-rdf/turtle-triple
          write-rdf/turtle-triples
          write-rdf/turtle-uri)
   (export (runtime rdf)