From 8d4542d199a325f344f96aff94c8ca008f0ab98e Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Fri, 23 Jan 2009 01:09:40 -0400
Subject: Added more debug code.

---
 src/expr.cc | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'src/expr.cc')

diff --git a/src/expr.cc b/src/expr.cc
index 7e63e401..259440ac 100644
--- a/src/expr.cc
+++ b/src/expr.cc
@@ -118,8 +118,19 @@ void expr_t::compile(scope_t& scope)
 value_t expr_t::calc(scope_t& scope)
 {
   if (ptr.get()) {
-    if (! compiled)
+    if (! compiled) {
+      if (SHOW_DEBUG("expr.calc")) {
+	DEBUG("expr.calc", "Before compilation:");
+	dump(*_log_stream);
+      }
+
       compile(scope);
+
+      if (SHOW_DEBUG("expr.calc")) {
+	DEBUG("expr.calc", "After compilation:");
+	dump(*_log_stream);
+      }
+    }
     return ptr->calc(scope);
   }
   return NULL_VALUE;
-- 
cgit v1.2.3