diff options
| author | johnvg | 2001-09-03 11:49:39 +0000 |
|---|---|---|
| committer | johnvg | 2001-09-03 11:49:39 +0000 |
| commit | 3bb5310a13540d169292ce92db5790a6b490da7f (patch) | |
| tree | 8a25366bd53b3e3f6a88040c3f3ccdbb95c28251 /main | |
| parent | added new functions for strict and unboxed lists (diff) | |
added init_identifiers call
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@730 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main')
| -rw-r--r-- | main/coclmain.icl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/main/coclmain.icl b/main/coclmain.icl index 81a7e68..f6deba6 100644 --- a/main/coclmain.icl +++ b/main/coclmain.icl @@ -68,11 +68,12 @@ import code from "thread_message.obj"; compiler :: ![{#Char}] *Files -> *(!Bool,!*Files); compiler commandArgs files + # dcl_cache = empty_cache (init_identifiers newHeap) | length commandArgs==2 && commandArgs!!0=="-ide" # wm_number=get_message_number; # thread_id=hex_to_int (commandArgs!!1); - = (True,compile_files (empty_cache newHeap) thread_id wm_number files) - # (r,cache,files)=compile commandArgs (empty_cache newHeap) files + = (True,compile_files dcl_cache thread_id wm_number files) + # (r,cache,files)=compile commandArgs dcl_cache files = (r,files) hex_to_int :: {#Char} -> Int |