hash: fix broken equality-of-two-hashes test.

* hash.c (hash_equal_op): Fix broken logic that is supposed to
push a cell onto the pending list: rplaca should be rplacd.

1 files changed, 2 insertions, 2 deletions

diff --git a/hash.c b/hash.c
index cc1b161f..d6e3d7a5 100644
--- a/hash.c
+++ b/hash.c
@@ -345,7 +345,7 @@ static val hash_equal_op(val left, val right)
     } else {
       ncons = or2(pop(&free_conses), cons(nil, nil));
       rplaca(ncons, lcell);
-      rplaca(ncons, pending);
+      rplacd(ncons, pending);
       pending = ncons;
     }
 
@@ -364,7 +364,7 @@ static val hash_equal_op(val left, val right)
     } else {
       ncons = or2(pop(&free_conses), cons(nil, nil));
       rplaca(ncons, rcell);
-      rplaca(ncons, pending);
+      rplacd(ncons, pending);
       pending = ncons;
     }
   }