diff options
| author | johnvg | 2001-09-06 13:40:47 +0000 |
|---|---|---|
| committer | johnvg | 2001-09-06 13:40:47 +0000 |
| commit | da9103f154e661bd3736df6dcee1c3c4307fb202 (patch) | |
| tree | 4c8fda89345e83b9ebefaff920d63e70f2b898ad /main/CleanCocl.icl | |
| parent | bug fix: Improved unification algoritm for kinds (diff) | |
add symbol_heap to empty_cache
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@754 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main/CleanCocl.icl')
| -rw-r--r-- | main/CleanCocl.icl | 4 |
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; {}{ |