From: Joe Marshall <eval.apply@gmail.com>
Date: Fri, 17 Dec 2010 23:31:36 +0000 (-0800)
Subject: Fix copying of ACCESS.
X-Git-Tag: 20101221-Gtk~12
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=17980871bd08cdfe708a6e00f98015de0512b190;p=mit-scheme.git

Fix copying of ACCESS.
---

diff --git a/src/sf/copy.scm b/src/sf/copy.scm
index 20162f9b5..97b804dd5 100644
--- a/src/sf/copy.scm
+++ b/src/sf/copy.scm
@@ -171,12 +171,16 @@ USA.
 
 (define-method/copy 'ACCESS
   (lambda (block environment expression)
-    (access/make (access/scode expression)
-		 (access/block expression)
-		 (copy/expression block
-				  environment
-				  (access/environment expression))
-		 (access/name expression))))
+    (call-with-values
+	(lambda ()
+	  (copy/block block environment (access/block expression)))
+      (lambda (block environment)
+	(access/make (access/scode expression)
+		     block
+		     (copy/expression block
+				      environment
+				      (access/environment expression))
+		     (access/name expression))))))
 
 (define-method/copy 'ASSIGNMENT
   (lambda (block environment expression)