From 8628fd0133fd7796491b2927023a97c3ec5f5ce3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 22 Jun 2018 06:46:05 -0700 Subject: 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. --- hash.c | 4 ++-- 1 file 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; } } -- cgit v1.2.3