hash: remove pointless nullify ops.

* hash.c (hash_assoc, hash_assql): Remove useless nullify
calls. These are copy and paste leftovers, since these
functions were based on assoc and assql, which handle
sequences other than lists.

1 files changed, 0 insertions, 4 deletions

diff --git a/hash.c b/hash.c
index 7198c2dc..8d3f2b37 100644
--- a/hash.c
+++ b/hash.c
@@ -567,8 +567,6 @@ static void hash_grow(struct hash *h, val hash)
 
 static val hash_assoc(val key, cnum hash, val list)
 {
-  list = nullify(list);
-
   while (list) {
     val elem = car(list);
     if (elem->ch.hash == hash && equal(car(elem), key))
@@ -581,8 +579,6 @@ static val hash_assoc(val key, cnum hash, val list)
 
 static val hash_assql(val key, cnum hash, val list)
 {
-  list = nullify(list);
-
   while (list) {
     val elem = car(list);
     if (elem->ch.hash == hash && eql(car(elem), key))