From 15b0c9ffb9f0fdb9429ed3f0ef33f63aef398f91 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 3 Feb 2017 18:42:28 -0800
Subject: bugfix: "expansion at nil" in error trace.

* eval.c (error_trace): Wrong variable was checked as basis
for selecting one of two variants of diagnostic.
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/eval.c b/eval.c
index 1c5855ae..0aa6c9a4 100644
--- a/eval.c
+++ b/eval.c
@@ -378,7 +378,7 @@ void error_trace(val exsym, val exvals, val out_stream, val prefix)
       val oinfo = source_loc_str(origin, nil);
 
       if (origin) {
-        if (info)
+        if (oinfo)
           format(out_stream, lit("~a ... an expansion at ~a of ~!~s\n"),
                  prefix, oinfo, origin, nao);
         else
-- 
cgit v1.2.3