diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 15:45:58 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 15:45:58 +0200 |
commit | 256438ccf9eaf2f45a50c98349d2ac02f52755af (patch) | |
tree | a1e11b17566695c735ac7d150a6f5a2343ce4b59 /MLKDynamicContext.m | |
parent | 1b556d9e057c6e3bed4893036d12eed1f3bc238d (diff) |
Prettify LOAD output.
Diffstat (limited to 'MLKDynamicContext.m')
-rw-r--r-- | MLKDynamicContext.m | 3 |
1 files changed, 3 insertions, 0 deletions
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 |