From f0276ab329846bf2ed62e2c7149a3d794462a9c2 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 10 Jul 2008 06:41:26 +0000
Subject: [PATCH] #f when comparing functional hash tables when a key is not
 found in the other table

svn: r10703
---
 src/mzscheme/src/hash.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/hash.c b/src/mzscheme/src/hash.c
index 1ad3921db7..7bfede0b34 100644
--- a/src/mzscheme/src/hash.c
+++ b/src/mzscheme/src/hash.c
@@ -2388,7 +2388,7 @@ int scheme_hash_tree_equal_rec(Scheme_Hash_Tree *t1, Scheme_Hash_Tree *t2, void
   for (i = t1->count; i--; ) {
     scheme_hash_tree_index(t1, i, &k, &v);
     v2 = scheme_hash_tree_get(t2, k);
-    if (!v)
+    if (!v || !v2)
       return 0;
     if (!scheme_recur_equal(v, v2, eql))
       return 0;