aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--main/CleanCocl.icl4
1 files changed, 3 insertions, 1 deletions
diff --git a/main/CleanCocl.icl b/main/CleanCocl.icl
index af7ee42..0cc6dd2 100644
--- a/main/CleanCocl.icl
+++ b/main/CleanCocl.icl
@@ -11,10 +11,12 @@ import CoclSystemDependent,Clean2AppleEventHandler;
from events import KeyDownEvent,HighLevelEvent,GetNextEvent,WaitNextEvent,Toolbox,RgnHandle;
+from predef import init_identifiers;
+
DeviceMask :== -31361; // HighLevelEventMask+UpdateMask+ActivMask+KeyboardMask+MouseMask+OsMask+1
Start world
- | install_apple_event_handlers==0 && store_state empty_cache<>0
+ | install_apple_event_handlers==0 && store_state (empty_cache (init_identifiers newHeap))<>0
= event_loop world;
= world;
{}{