From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 2 Mar 2006 03:18:42 +0000 (+0000)
Subject: Fix bug: incorrect binding of *BNODES*.
X-Git-Tag: 20090517-FFI~1085
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5ef97fe2361a0013ad0945d9423faff379a6db1b;p=mit-scheme.git

Fix bug: incorrect binding of *BNODES*.
---

diff --git a/v7/src/xml/rdf-nt.scm b/v7/src/xml/rdf-nt.scm
index 53db0c67a..e93611db5 100644
--- a/v7/src/xml/rdf-nt.scm
+++ b/v7/src/xml/rdf-nt.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rdf-nt.scm,v 1.2 2006/02/24 17:47:25 cph Exp $
+$Id: rdf-nt.scm,v 1.3 2006/03/02 03:18:42 cph Exp $
 
 Copyright 2006 Massachusetts Institute of Technology
 
@@ -40,13 +40,15 @@ USA.
 		(loop (cons triple triples)))))))))
 
 (define (rdf/nt-file->source pathname)
-  (fluid-let ((*bnodes* (make-bnode-table)))
-    (let ((port (open-input-file pathname)))
-      (lambda ()
-	(let ((triple (%read-rdf/nt port)))
-	  (if (eof-object? triple)
-	      #f
-	      triple))))))
+  (let ((port (open-input-file pathname))
+	(table (make-bnode-table)))
+    (lambda ()
+      (let ((triple
+	     (fluid-let ((*bnodes* table))
+	       (%read-rdf/nt port))))
+	(if (eof-object? triple)
+	    #f
+	    triple)))))
 
 (define (read-rdf/nt port)
   (fluid-let ((*bnodes* (bnode-table port)))