summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2016-01-22 20:42:03 -0800
committerKaz Kylheku <kaz@kylheku.com>2016-01-22 20:42:03 -0800
commit7d250092d842e502bf5a571cefad999838997313 (patch)
treeaae66b872100f230b522f5ecaed4ded5fb8e8dd4
parentfadf6720066731a2611058121665369ce997fa57 (diff)
downloadtxr-7d250092d842e502bf5a571cefad999838997313.tar.gz
txr-7d250092d842e502bf5a571cefad999838997313.tar.bz2
txr-7d250092d842e502bf5a571cefad999838997313.zip
Add debug trace to @(require).
* match.c (v_require): Produce trace when require fails.
-rw-r--r--match.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/match.c b/match.c
index 9eb1a532..187f7ec9 100644
--- a/match.c
+++ b/match.c
@@ -3626,8 +3626,10 @@ static val v_require(match_files_ctx *c)
val args = rest(first_spec);
val ret;
ret = eval_progn_with_bindings(args, c->spec, c->bindings, specline);
- if (!ret)
+ if (!ret) {
+ debuglf(specline, lit("require failed"), nao);
return ret;
+ }
return next_spec_k;
}