From eb322d8f624eadb8078767dc07807f609978c746 Mon Sep 17 00:00:00 2001
From: Laurent Sansonetti <lrz@chopine.be>
Date: Thu, 29 Mar 2012 13:04:38 +0200
Subject: [PATCH] don't make an eval the very first time

---
 bin/sim.m | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/bin/sim.m b/bin/sim.m
index d1283144..d93d7a13 100644
--- a/bin/sim.m
+++ b/bin/sim.m
@@ -172,7 +172,14 @@ current_repl_prompt(NSString *top_level)
 {
     char question = '?';
     if (top_level == nil) {
-	top_level = [delegate replEval:@"self"];
+	static bool first_time = true;
+	if (first_time) {
+	    top_level = @"main";
+	    first_time = false;
+	}
+	else {
+	    top_level = [delegate replEval:@"self"];
+	}
 	question = '>';
     }