summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2015-12-29 06:49:17 -0800
committerKaz Kylheku <kaz@kylheku.com>2015-12-29 06:49:17 -0800
commit52a90ab0eb45508c98d4338ff28722dadbe28ee9 (patch)
tree600dfbab73c5ca13fb0006274476abdd356519f0
parentffada96ffdf3dae7c1932deebd6f512ede5f2aa5 (diff)
downloadtxr-52a90ab0eb45508c98d4338ff28722dadbe28ee9.tar.gz
txr-52a90ab0eb45508c98d4338ff28722dadbe28ee9.tar.bz2
txr-52a90ab0eb45508c98d4338ff28722dadbe28ee9.zip
Don't record nil as the macro ancestor of a form.
* eval.c (set_origin): Don't store nil value in the origin_hash.
-rw-r--r--eval.c3
1 files changed, 2 insertions, 1 deletions
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;
}