From c0277c7d2426f59d841a89701b6af8e57592021b Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Fri, 20 Feb 2009 13:34:17 +0000
Subject: [PATCH] Fix last change so that non-empty blank nodes are not errors.
 Remove out-of-date comment.

---
 v7/src/xml/turtle.scm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/v7/src/xml/turtle.scm b/v7/src/xml/turtle.scm
index e90a04109..c5ea94ac4 100644
--- a/v7/src/xml/turtle.scm
+++ b/v7/src/xml/turtle.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: turtle.scm,v 1.46 2008/10/12 06:31:05 cph Exp $
+$Id: turtle.scm,v 1.47 2009/02/20 13:34:17 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -129,12 +129,8 @@ USA.
    (with-pointer p
      (alt (map make-rdf-bnode
 	       (seq "_:" parse:name))
-	  ;; This notation should probably accept whitespace between the
-	  ;; brackets, but the spec is written like this:
 	  (encapsulate (lambda (v) v (make-rdf-bnode))
-	    (seq "["
-		 parse:ws*
-		 (alt "]" (error p "Malformed blank node"))))
+	    (seq "[" parse:ws* "]"))
 	  (map (lambda (pols) (cons 'BLANK-NODE pols))
 	       (seq "["
 		    parse:ws*
-- 
2.25.1