sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added more debug code.

Browse source
This commit is contained in:
John Wiegley 2009-01-23 01:09:40 -04:00
parent 00fdadedcc
commit 8d4542d199
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/expr.cc
View file

@ -118,8 +118,19 @@ void expr_t::compile(scope_t& scope)
value_t expr_t::calc(scope_t& scope) value_t expr_t::calc(scope_t& scope)
{ {
if (ptr.get()) { if (ptr.get()) {
if (! compiled) if (! compiled) {
if (SHOW_DEBUG("expr.calc")) {
DEBUG("expr.calc", "Before compilation:");
dump(*_log_stream);
}
compile(scope); compile(scope);
if (SHOW_DEBUG("expr.calc")) {
DEBUG("expr.calc", "After compilation:");
dump(*_log_stream);
}
}
return ptr->calc(scope); return ptr->calc(scope);
} }
return NULL_VALUE; return NULL_VALUE;