From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 20 Oct 1993 22:05:02 +0000 (+0000)
Subject: Grumble; fix stupid thinko from last change.
X-Git-Tag: 20090517-FFI~7723
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=163435ea62660800ad2174f1c67cad5f06935d89;p=mit-scheme.git

Grumble; fix stupid thinko from last change.
---

diff --git a/v7/src/runtime/hashtb.scm b/v7/src/runtime/hashtb.scm
index b22f29ea8..317ebb1f4 100644
--- a/v7/src/runtime/hashtb.scm
+++ b/v7/src/runtime/hashtb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: hashtb.scm,v 1.15 1993/10/20 21:48:27 cph Exp $
+$Id: hashtb.scm,v 1.16 1993/10/20 22:05:02 cph Exp $
 
 Copyright (c) 1990-93 Massachusetts Institute of Technology
 
@@ -765,7 +765,7 @@ MIT in each case. |#
 	   (loop tables (system-pair-cdr tables)))
 	  (else
 	   (if previous
-	       (set-cdr! previous (system-pair-cdr tables))
+	       (system-pair-set-cdr! previous (system-pair-cdr tables))
 	       (set! address-hash-tables (system-pair-cdr tables)))
 	   (loop previous (system-pair-cdr tables))))))