From 256438ccf9eaf2f45a50c98349d2ac02f52755af Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 7 Aug 2008 15:45:58 +0200 Subject: Prettify LOAD output. --- MLKDynamicContext.m | 3 +++ 1 file changed, 3 insertions(+) (limited to 'MLKDynamicContext.m') diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m index 083fc14..ed01263 100644 --- a/MLKDynamicContext.m +++ b/MLKDynamicContext.m @@ -265,6 +265,9 @@ static MLKDynamicContext *global_context; [vars setObject:NIL forKey:[[MLKPackage findPackage:@"TOILET-SYSTEM"] intern:@"*SYSTEM-INITIALISED-P*"]]; + [vars setObject:[MLKInteger integerWithInt:0] + forKey:[[MLKPackage findPackage:@"TOILET-SYSTEM"] + intern:@"*LOAD-LEVEL*"]]; global_context = [[self alloc] initWithParent:nil variables:vars -- cgit v1.2.3