From 18f2c41c23abf8c43e4f6ae35699cd55b9fcef32 Mon Sep 17 00:00:00 2001
From: diederik
Date: Mon, 11 Feb 2002 13:24:14 +0000
Subject: small macintosh/clean 2.0 fixes

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

(limited to 'main/CleanCocl.icl')

diff --git a/main/CleanCocl.icl b/main/CleanCocl.icl
index 0cc6dd2..db3aa71 100644
--- a/main/CleanCocl.icl
+++ b/main/CleanCocl.icl
@@ -8,15 +8,19 @@ import cache_variable;
 f = SwitchFusion fusion_is_on 0;
 
 import CoclSystemDependent,Clean2AppleEventHandler;
-
+//1.3
 from events import KeyDownEvent,HighLevelEvent,GetNextEvent,WaitNextEvent,Toolbox,RgnHandle;
-
+//3.1
+/*2.0
+from events import KeyDownEvent,HighLevelEvent,GetNextEvent,WaitNextEvent,::Toolbox,::RgnHandle;
+0.2*/
 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 (init_identifiers newHeap))<>0
+	# (symbol_table,world)	= init_identifiers newHeap world;
+	| install_apple_event_handlers==0 && store_state (empty_cache symbol_table)<>0
 		= event_loop world;
 		= world;
 {}{
-- 
cgit v1.2.3