From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 30 Jul 2003 05:13:46 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~1845
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=00cac03b144c456c7f5d2cd9fe02fe3007d26893;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/runtime/hashtb.scm b/v7/src/runtime/hashtb.scm
index ac498c3f4..7d6e337b7 100644
--- a/v7/src/runtime/hashtb.scm
+++ b/v7/src/runtime/hashtb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: hashtb.scm,v 1.27 2003/07/29 03:46:04 cph Exp $
+$Id: hashtb.scm,v 1.28 2003/07/30 05:13:46 cph Exp $
 
 Copyright 1990,1991,1993,1994,1995,2003 Massachusetts Institute of Technology
 
@@ -814,7 +814,7 @@ USA.
 
 (define (mark-address-hash-tables!)
   (let loop ((previous #f) (tables address-hash-tables))
-    (if (pair? tables)
+    (if (system-pair? tables)
 	(if (system-pair-car tables)
 	    (begin
 	      (set-table-needs-rehash?! (system-pair-car tables) #t)