Merge mulk_benkard@ssh.phx.nearlyfreespeech.net:/home/htdocs/code/mulklisp

1 files changed, 6 insertions, 0 deletions

diff --git a/MLKReadEvalPrintLoop.m b/MLKReadEvalPrintLoop.m
index 53943bc..de2f4f1 100644
--- a/MLKReadEvalPrintLoop.m
+++ b/MLKReadEvalPrintLoop.m
@@ -98,8 +98,10 @@ static const char *prompt (EditLine *e) {
   pool = [[NSAutoreleasePool alloc] init];
 
   printf ("Loading init.lisp.\n");
+#if 1
   NS_DURING
     {
+#endif
       input = [NSInputStream inputStreamWithFileAtPath:@"init.lisp"];
       stream = LAUTORELEASE ([[MLKStream alloc] initWithInputStream:input]);
 
@@ -107,6 +109,7 @@ static const char *prompt (EditLine *e) {
       [MLKInterpreter load:stream verbose:YES print:YES];
       success = [MLKInterpreter load:stream verbose:YES print:YES];
       [input close];
+#if 1
     }
   NS_HANDLER
     {
@@ -115,6 +118,7 @@ static const char *prompt (EditLine *e) {
               [[localException reason] UTF8String]);
     }
   NS_ENDHANDLER;
+#endif
 
   printf ("Done.\n\n");
 
@@ -151,10 +155,12 @@ static const char *prompt (EditLine *e) {
 #if 1
           NS_DURING
 #else
+#ifdef GNUSTEP
           GSDebugAllocationActive (YES);
           [NSObject enableDoubleReleaseCheck:YES];
           NSZombieEnabled = YES;
 #endif
+#endif
             {
               int i;