From 3bb5310a13540d169292ce92db5790a6b490da7f Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 3 Sep 2001 11:49:39 +0000
Subject: added init_identifiers call

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@730 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 main/coclmain.icl | 5 +++--
 1 file 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
-- 
cgit v1.2.3