From f58638c75c09da472793ee932284181317f132a7 Mon Sep 17 00:00:00 2001
From: martijnv
Date: Tue, 18 Dec 2001 14:55:20 +0000
Subject: permit .tcl-file to be generated from a main.prj

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

(limited to 'frontend')

diff --git a/frontend/main.icl b/frontend/main.icl
index 6dda6f2..c91fd91 100644
--- a/frontend/main.icl
+++ b/frontend/main.icl
@@ -182,8 +182,12 @@ loadModule mod_ident {dcl_modules,cached_macros,predef_symbols,hash_table,heaps}
 	# (tcl_file,ms=:{ms_files,ms_error,ms_io,ms_out,ms_paths})
 		= write_tcl_file (WrapopenTclFile ms) (No,ms);
 // ... MV
-	# (optional_syntax_tree,cached_cached_macros,cached_dcl_mods,_,main_dcl_module_n,predef_symbols, hash_table, ms_files, ms_error, ms_io, ms_out,_,heaps)
+	# (optional_syntax_tree,cached_cached_macros,cached_dcl_mods,_,main_dcl_module_n,predef_symbols, hash_table, ms_files, ms_error, ms_io, ms_out,tcl_file,heaps)
 		= frontEndInterface { feo_up_to_phase = FrontEndPhaseAll, feo_generics = False, feo_fusion = False} mod_ident {sp_locations = [], sp_paths = ms_paths} dcl_modules cached_macros No predef_symbols hash_table dummyModTime ms_files ms_error ms_io ms_out tcl_file heaps
+// MV ...
+	# (_,ms_files)
+		= closeTclFile tcl_file ms_files 
+// ... MV
 	# ms = {ms & ms_files=ms_files, ms_error=ms_error,ms_io=ms_io,ms_out=ms_out}
 	= case optional_syntax_tree of
 		Yes {fe_icl={/*icl_functions,*/icl_used_module_numbers}, fe_dcls}
-- 
cgit v1.2.3