From 59721ee4879015c9f1e3025ab3d1a5db8550f284 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 23 Oct 2017 06:33:31 -0700
Subject: 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.
---
 hash.c | 4 ----
 1 file changed, 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))
-- 
cgit v1.2.3