From 00cac03b144c456c7f5d2cd9fe02fe3007d26893 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 30 Jul 2003 05:13:46 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/runtime/hashtb.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
-- 
2.25.1