From 17980871bd08cdfe708a6e00f98015de0512b190 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Fri, 17 Dec 2010 15:31:36 -0800 Subject: [PATCH] Fix copying of ACCESS. --- src/sf/copy.scm | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) 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) -- 2.25.1