diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-01-21 13:09:12 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-01-21 13:09:12 -0800 |
commit | 0cbd46033d0ef707a856c78e735dbf41a6fd7faa (patch) | |
tree | 2635d7cb036609c494fcb6d6c72dc96b899cdd37 /debug.c | |
parent | d4d41b4ec3f983ad0fa42f8e85a2c68d207a9b28 (diff) | |
download | txr-0cbd46033d0ef707a856c78e735dbf41a6fd7faa.tar.gz txr-0cbd46033d0ef707a856c78e735dbf41a6fd7faa.tar.bz2 txr-0cbd46033d0ef707a856c78e735dbf41a6fd7faa.zip |
* debug.c (last_command): Do not initialize with lit();
this is not a constant expression in C.
(debug): Handle the situation here.
Diffstat (limited to 'debug.c')
-rw-r--r-- | debug.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -20,7 +20,7 @@ val debug_block_s; static int step_mode; static int next_depth = -1; val breakpoints; -val last_command = lit(""); +val last_command; static void help(val stream) { @@ -96,7 +96,7 @@ val debug(val form, val bindings, val data, val line, val chr) input = split_str_set(or2(get_line(std_input), lit("q")), lit("\t ")); command = if3(equal(first(input), null_string), - last_command, first(input)); + or2(last_command, lit("")), first(input)); last_command = command; if (equal(command, lit("?")) || equal(command, lit("h"))) { |