From a34b771cd9cc823260407b2905312b3be05390db Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@Minimulk.local>
Date: Sun, 24 Aug 2008 18:54:47 +0200
Subject: Add a couple of debugging statements.

---
 MLKInterpreter.m | 29 ++++++++++++++++++-----------
 1 file changed, 18 insertions(+), 11 deletions(-)

(limited to 'MLKInterpreter.m')

diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index 9612ad4..f85bf21 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -173,24 +173,31 @@
 {
   NSArray *values;
 
-#define TRACE_EVAL 0
-#if TRACE_EVAL
+#if 0
   BOOL trace = NO;
-  
   //if ([dynamicContext valueForSymbol:V_INITP])
   //  trace = YES;
   
   //if (trace)
-  NSLog (@"; EVAL: %@", MLKPrintToString(_form));
-#endif  // TRACE_EVAL
-  
+  NSLog (@"; EVAL END: %@", MLKPrintToString(_form));
   values = [self reallyInterpretWithEnvironment:env];
-
-#if TRACE_EVAL
   //if (trace)
-  NSLog (@"; EVAL END: %@", MLKPrintToString(_form));
-#endif  // TRACE_EVAL
-  
+  NSLog (@"; EVAL: %@", MLKPrintToString(_form));
+#elif 1
+  NS_DURING
+    {
+      values = [self reallyInterpretWithEnvironment:env];
+    }
+  NS_HANDLER
+    {
+      NSLog (@"; BROKEN EVAL: %@", MLKPrintToString(_form));
+      [localException raise];
+    }
+  NS_ENDHANDLER;
+#else
+  values = [self reallyInterpretWithEnvironment:env];  
+#endif
+
   return values;
 }
 
-- 
cgit v1.2.3