public static void TakTrampInit()
{
string originalDirectory = System.Environment.CurrentDirectory;
try {
Channel.Initialize(Console.In, Console.Out);
System.Environment.CurrentDirectory = "C:\\jrm-code-project\\TakTest\\";
Primitive.Initialize();
FixedObjectsVector.Initialize();
bootstrap = (Fasl.Fasload("tak.bin") as SCode).Bind(new RootBindingEnvironment(Microcode.Environment.Global));
}
finally {
System.Environment.CurrentDirectory = originalDirectory;
}
}
static void Main(string [] args)
{
string appName = AppDomain.CurrentDomain.FriendlyName;
Console.WriteLine("{0}", appName);
Debug.Listeners.Add(new TextWriterTraceListener(Console.Out));
Debug.WriteLine("DEBUG build");
Debug.WriteLine(CheckOverflowChecking()
? "Overflow checking is enabled."
: "Overflow checking is disabled.");
Primitive.Initialize();
FixedObjectsVector.Initialize();
ColdLoad();
Console.WriteLine();
Console.WriteLine("{0} exits", appName);
}
