From da9103f154e661bd3736df6dcee1c3c4307fb202 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 6 Sep 2001 13:40:47 +0000
Subject: add symbol_heap to empty_cache

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@754 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 main/CleanCocl.icl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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;
 {}{
-- 
cgit v1.2.3