From 52a90ab0eb45508c98d4338ff28722dadbe28ee9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 29 Dec 2015 06:49:17 -0800
Subject: Don't record nil as the macro ancestor of a form.

* eval.c (set_origin): Don't store nil value
in the origin_hash.
---
 eval.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index e92c5845..ddbc17ae 100644
--- a/eval.c
+++ b/eval.c
@@ -223,7 +223,8 @@ val lookup_origin(val form)
 
 static val set_origin(val form, val origin)
 {
-  (void) sethash(origin_hash, form, origin);
+  if (origin)
+    sethash(origin_hash, form, origin);
   return form;
 }
 
-- 
cgit v1.2.3