From a61708f6ca5df1dd17a6bad6a72003b08474ed6e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 24 Feb 2014 21:40:54 -0800
Subject: * debug.c (debug): Fix 2013-12-02 regression, which leaves the
debugger not printing the current line of data.
---
ChangeLog | 5 +++++
debug.c | 5 ++++-
2 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/ChangeLog b/ChangeLog
index 61e35a34..a335c4a1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-24 Kaz Kylheku <kaz@kylheku.com>
+
+ * debug.c (debug): Fix 2013-12-02 regression, which leaves the
+ debugger not printing the current line of data.
+
2014-02-24 Kaz Kylheku <kaz@kylheku.com>
* eval.c (eval_init): Intern symlink_wrap, link_wrap, readlink_wrap.
diff --git a/debug.c b/debug.c
index afef0835..96a97580 100644
--- a/debug.c
+++ b/debug.c
@@ -92,7 +92,10 @@ val debug(val form, val bindings, val data, val line, val pos, val base)
val loc = source_loc(form);
cons_bind (lineno, file, loc);
- data = if2(consp(data), car(data));
+ if (consp(data))
+ data = car(data);
+ else if (data == t)
+ data = nil;
if (!step_mode && !memqual(loc, breakpoints)
&& (debug_depth > next_depth))
--
cgit v1.2.3