From 3d7959da4690b7ac8bd964c209f801decde42268 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 30 Nov 2001 15:00:58 +0000
Subject: initPtr modifies the *World empty cache if compilation fails

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

(limited to 'frontend')

diff --git a/frontend/main.icl b/frontend/main.icl
index 8798d2a..6dda6f2 100644
--- a/frontend/main.icl
+++ b/frontend/main.icl
@@ -16,11 +16,12 @@ write_tcl_file yes no :== no;
 Start world
 	# (std_io, world) = stdio world
 	  (_, ms_out, world) = fopen "out" FWriteText world
+	  (symbol_table,world) = init_identifiers newHeap world
 	  (ms_out,world) = accFiles (
 	  		\files -> 
 				(let
 				    (ms_paths, ms_files, ms_error) = converFileToListOfStrings "mainPrefs" files stderr
-					ms = CommandLoop (init_identifiers newHeap) { ms_io = std_io, ms_out = ms_out, ms_error = ms_error, ms_files = ms_files, ms_paths = ms_paths }
+					ms = CommandLoop symbol_table { ms_io = std_io, ms_out = ms_out, ms_error = ms_error, ms_files = ms_files, ms_paths = ms_paths }
 				in
 					(ms.ms_out, ms.ms_files))) world
 	= fclose ms_out world
@@ -271,6 +272,7 @@ where
 					-> collect_modules modules collected_modules random_numbers proj ms
 				_
 					# ms = {ms & ms_io = ms.ms_io <<< "Compiling " <<< id_name <<< " failed \n"}
+					# proj = {proj & proj_cache=empty_cache proj.proj_cache.hash_table.hte_symbol_heap}
 					-> collect_modules modules collected_modules random_numbers proj ms
 //					-> (NoModules, ms)
 
-- 
cgit v1.2.3