From a4dc2ef855a0513db78ce00338602fbdad9c33da Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 6 Jul 2008 17:05:51 +0200
Subject: Add a workaround for an exception handling problem on Mac OS X.

---
 MLKInterpreter.m | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'MLKInterpreter.m')

diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index a1b86fd..778985f 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -101,6 +101,8 @@ static MLKSymbol *_LAMBDA;
 {
   MLKDynamicContext *dynamicContext = [MLKDynamicContext currentContext];
 
+  //NSLog (@"eval: %@", [program descriptionForLisp]);
+
   if (!program || [program isKindOfClass:[MLKSymbol class]])
     {
       //NSLog (@"Processing symbol.");
@@ -559,11 +561,13 @@ static MLKSymbol *_LAMBDA;
   while (YES)
     {
       id result;
+      //NSLog (@"; LOAD: Reding a form.");
       id code = [MLKReader readFromStream:stream
                            eofError:NO
                            eofValue:eofValue
                            recursive:NO
                            preserveWhitespace:NO];
+      //NSLog (@"; LOAD: Reading finished.");
       NSString *formdesc;
 
       //NSLog (@"%@", code);
@@ -597,6 +601,7 @@ static MLKSymbol *_LAMBDA;
         }
     }
 
+  //NSLog (@"; LOAD: END");
   return YES;
 }
 @end
-- 
cgit v1.2.3