From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 16 Aug 2007 14:42:08 +0000 (+0000)
Subject: Implement WRITE-RDF/TURTLE-TRIPLE.
X-Git-Tag: 20090517-FFI~459
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4444766cc80f920fc4c9aaed5fbd80fff75484b0;p=mit-scheme.git

Implement WRITE-RDF/TURTLE-TRIPLE.
---

diff --git a/v7/src/xml/turtle.scm b/v7/src/xml/turtle.scm
index 477a748d6..abf1236d9 100644
--- 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))
-
+
 (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))
+
 (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 8cd300347..33a2bc704 100644
--- 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)