diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-10-24 08:41:09 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-10-24 08:41:09 -0700 |
commit | 57276037c1357e54730a94fb1191362d4f694252 (patch) | |
tree | f933609cb8870c42478a71a2c3f3b416c93d57aa /debug.c | |
parent | 43418aad5d8214c1b60b080dff2c36a2caf27391 (diff) | |
download | txr-57276037c1357e54730a94fb1191362d4f694252.tar.gz txr-57276037c1357e54730a94fb1191362d4f694252.tar.bz2 txr-57276037c1357e54730a94fb1191362d4f694252.zip |
* Makefile: Removing trailing spaces.
(GREP_CHECK): New macro.
(enforce): Rewritten using GREP_CHECK, with new checks.
* arith.c, combi.c, debug.c, eval.c, filter.c, gc.c, hash.c, lib.c,
* lib.h, match.c, parser.l, parser.y, rand.c, regex.c, signal.c,
* signal.h, stream.c, syslog.c, txr.c, unwind.c, utf8.c: Remove
trailing spaces.
Diffstat (limited to 'debug.c')
-rw-r--r-- | debug.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -104,7 +104,7 @@ val debug(val form, val bindings, val data, val line, val pos, val base) else if (data == t) data = nil; - if (!step_mode && !memqual(rl, breakpoints) + if (!step_mode && !memqual(rl, breakpoints) && (debug_depth > next_depth)) { return nil; @@ -155,7 +155,7 @@ val debug(val form, val bindings, val data, val line, val pos, val base) flush_stream(std_debug); input = split_str_set(or2(get_line(std_input), lit("q")), lit("\t ")); - command = if3(equal(first(input), null_string), + command = if3(equal(first(input), null_string), or2(last_command, lit("")), first(input)); last_command = command; |