diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2016-01-22 20:42:03 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2016-01-22 20:42:03 -0800 |
commit | 7d250092d842e502bf5a571cefad999838997313 (patch) | |
tree | aae66b872100f230b522f5ecaed4ded5fb8e8dd4 | |
parent | fadf6720066731a2611058121665369ce997fa57 (diff) | |
download | txr-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.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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; } |