From c9c7cf1cb20558b28c76147e02453a17576ab2a9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 13 Aug 2019 22:18:17 -0700
Subject: bugfix: line number of unbound vars not reported.

* eval.c (expand): Do not create expansion debug frames
for atomic forms, only for compound forms.
---
 eval.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/eval.c b/eval.c
index f5546b35..af3bea23 100644
--- a/eval.c
+++ b/eval.c
@@ -4903,8 +4903,10 @@ val expand(val form, val menv)
 {
   val ret = nil;
 #if CONFIG_DEBUG_SUPPORT
+  val is_cons = consp(form);
   uw_frame_t expand_fr;
-  uw_push_expand(&expand_fr, form, menv);
+  if (is_cons)
+    uw_push_expand(&expand_fr, form, menv);
 #endif
 
   ret = do_expand(form, menv);
@@ -4913,7 +4915,8 @@ val expand(val form, val menv)
     set_origin(ret, form);
 
 #if CONFIG_DEBUG_SUPPORT
-  uw_pop_frame(&expand_fr);
+  if (is_cons)
+    uw_pop_frame(&expand_fr);
 #endif
   return ret;
 }
-- 
cgit v1.2.3