From 5f9d1d22af102a8e9d2a769ea02243fb5763fe74 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 19 Jul 2014 13:04:33 -0700
Subject: * hash.c (hash_construct): Nullify the pairs argument so that it
 works correctly with an empty vector.

* txr.1: Write missing documentation for hash-construct.
---
 hash.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'hash.c')

diff --git a/hash.c b/hash.c
index f4692d56..92a05191 100644
--- a/hash.c
+++ b/hash.c
@@ -812,6 +812,8 @@ val hash_construct(val hashv_args, val pairs)
 {
   val hash = hashv(hashv_args);
 
+  pairs = nullify(pairs);
+
   for (; pairs; pairs = cdr(pairs)) {
     val pair = car(pairs);
     sethash(hash, first(pair), second(pair));
-- 
cgit v1.2.3