summaryrefslogtreecommitdiffstats
path: root/debug.c
diff options
context:
space:
mode:
Diffstat (limited to 'debug.c')
-rw-r--r--debug.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/debug.c b/debug.c
index 38a4b379..7c48cf24 100644
--- a/debug.c
+++ b/debug.c
@@ -34,7 +34,6 @@ val debug(val form, val bindings, val data, val line, val chr)
val print_data = t;
for (;;) {
- uses_or2;
val input, command;
if (print_form) {
@@ -58,7 +57,8 @@ val debug(val form, val bindings, val data, val line, val chr)
flush_stream(std_output);
input = split_str_set(get_line(std_input), lit("\t "));
- command = or2(first(input), last_command);
+ command = if3(equal(first(input), null_string),
+ last_command, first(input));
last_command = command;
if (equal(command, lit("?")) || equal(command, lit("help"))) {