From 9d53407bd0b744346d97f8ddcaedcee1a7bf6d76 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 27 Apr 1987 21:45:33 +0000 Subject: [PATCH] Fix bug in copying of declarations, where variable was passed to `block/lookup-name' rather than the variable's name. --- v7/src/sf/copy.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/sf/copy.scm b/v7/src/sf/copy.scm index d9efd13ea..fc9de913d 100644 --- a/v7/src/sf/copy.scm +++ b/v7/src/sf/copy.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/copy.scm,v 3.3 1987/03/20 23:49:22 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/copy.scm,v 3.4 1987/04/27 21:45:33 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -143,7 +143,8 @@ MIT in each case. |# (environment/lookup environment variable identity-procedure (lambda () - (block/lookup-name root-block variable)))) + (block/lookup-name root-block + (variable/name variable))))) (lambda (expression) (copy/expression block environment expression))))) -- 2.25.1