From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Jan 1990 22:44:12 +0000 (+0000)
Subject: `hash-table-copy', when copying the elements in a hash bucket, was
X-Git-Tag: 20090517-FFI~11565
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ec79a01ba19dfa36bc50a5853682e7856a1bc67d;p=mit-scheme.git

`hash-table-copy', when copying the elements in a hash bucket, was
copying each element and then setting its previous-hash link to that
of the original element rather than its copy.  Don't entirely
understand why this wasn't noticed before.
---

diff --git a/v7/src/compiler/rtlopt/rcseht.scm b/v7/src/compiler/rtlopt/rcseht.scm
index 18bfa1a19..d9ab9db63 100644
--- a/v7/src/compiler/rtlopt/rcseht.scm
+++ b/v7/src/compiler/rtlopt/rcseht.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcseht.scm,v 4.10 1990/01/18 22:47:57 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcseht.scm,v 4.11 1990/01/23 22:44:12 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -155,13 +155,16 @@ MIT in each case. |#
 				 (element-expression element)
 				 (element-cost element)
 				 (element-in-memory? element)
-				 (per-element (element-next-hash element)
-					      element)
+				 false
 				 previous
 				 (element-next-value element)
 				 (element-previous-value element)
 				 (element-first-value element))))
 			   (set-element-cost! element element*)
+			   (set-element-next-hash!
+			    element*
+			    (per-element (element-next-hash element)
+					 element*))
 			   element*))))
 		elements)))
       (letrec ((per-element