From 0cbd46033d0ef707a856c78e735dbf41a6fd7faa Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 21 Jan 2012 13:09:12 -0800
Subject: * debug.c (last_command): Do not initialize with lit(); this is not a
 constant expression in C. (debug): Handle the situation here.

---
 debug.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'debug.c')

diff --git a/debug.c b/debug.c
index ce8109e4..bad1c1d5 100644
--- a/debug.c
+++ b/debug.c
@@ -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"))) {
-- 
cgit v1.2.3