From 1dc2d105292fb93bda2f78c93ae2872545eebd3a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 9 Nov 2006 20:11:50 +0000 Subject: [PATCH] Fix thinko in previous change. --- v7/src/xml/rdf-struct.scm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/v7/src/xml/rdf-struct.scm b/v7/src/xml/rdf-struct.scm index 1311622f5..b8429af4c 100644 --- 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)) -- 2.25.1