diff options
| author | diederik | 2002-02-11 13:24:14 +0000 |
|---|---|---|
| committer | diederik | 2002-02-11 13:24:14 +0000 |
| commit | 18f2c41c23abf8c43e4f6ae35699cd55b9fcef32 (patch) | |
| tree | d3686a3f56f22412a2c94a7f345e2e0b2d9eae88 /main/CleanCocl.icl | |
| parent | class type variables bugfix (diff) | |
small macintosh/clean 2.0 fixes
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1014 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main/CleanCocl.icl')
| -rw-r--r-- | main/CleanCocl.icl | 10 |
1 files changed, 7 insertions, 3 deletions
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; {}{ |