From 2445c978fc682de3bca5451d230e76cdc1a2ab2d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 24 Feb 2019 07:43:04 -0800
Subject: hash: remove redundant assignment from hash_grow.

* hash.c (hash_grow): The new_table value is stored in
h->table twice. First directly and then via the set macro.
Let's just use setcheck, which avoids the intermediate loc object.
---
 hash.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hash.c b/hash.c
index 3dde4dca..1667c741 100644
--- a/hash.c
+++ b/hash.c
@@ -609,7 +609,7 @@ static void hash_grow(struct hash *h, val hash)
 
   h->modulus = new_modulus;
   h->table = new_table;
-  set(mkloc(h->table, hash), new_table);
+  setcheck(hash, new_table);
 }
 
 static val hash_assoc(val key, cnum hash, val list)
-- 
cgit v1.2.3