Fix thinko in previous change.

diff --git a/v7/src/xml/rdf-struct.scm b/v7/src/xml/rdf-struct.scm
index 1311622f556210e1fe86a457a9613e7cf3ec5586..b8429af4c02c200e7e51de5bcafb1804a6d42cc3 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.22 2006/11/09 20:07:40 cph Exp $
+$Id: rdf-struct.scm,v 1.23 2006/11/09 20:11:50 cph Exp $
 
 Copyright 2006 Massachusetts Institute of Technology
 
@@ -81,7 +81,7 @@ USA.
        (hash-table/intern! *rdf-bnode-registry* name %make-rdf-bnode))))
 
 (define (rdf-bnode-name bnode)
-  (string-append bnode-prefix (number->string (hash bnode))))
+  (string-append "B" (number->string (hash bnode))))
 
 (define (%decode-bnode-uri uri)
   (let ((handle-uri
@@ -96,17 +96,13 @@ USA.
          (else #f))))
 
 (define parse-bnode
-  (let ((prefix (lambda (b) (match-parser-buffer-string b bnode-prefix)))
-       (digits (ascii-range->char-set #x30 #x3A)))
+  (let ((digits (ascii-range->char-set #x30 #x3A)))
     (*parser
-     (seq (noise prefix)
+     (seq (noise "_:B")
          (map (lambda (s) (string->number s 10 #t))
               (match (+ (char-set digits))))
          (noise (end-of-input))))))
 
-(define bnode-prefix
-  "_:B")
-
 (define (make-rdf-bnode-registry)
   (make-string-hash-table))