From 0a21b6312579edee6df2f7e378fc7437bbeb21a3 Mon Sep 17 00:00:00 2001
From: sjakie
Date: Thu, 7 Oct 1999 15:31:09 +0000
Subject: *** empty log message ***

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

diff --git a/frontend/main.icl b/frontend/main.icl
index c4532a3..c60e370 100644
--- a/frontend/main.icl
+++ b/frontend/main.icl
@@ -143,7 +143,7 @@ compileModule mod_name ms
 
 loadModule mod_ident predef_symbols hash_table ms=:{ms_files,ms_error,ms_io,ms_out,ms_paths}
 	# (ok, mod, hash_table, ms_error, predef_symbols, ms_files)
-		= wantModule cWantIclFile mod_ident (hash_table ---> "Parsing") ms_error ms_paths predef_symbols ms_files
+		= wantModule cWantIclFile mod_ident (hash_table ---> ("Parsing:", mod_ident)) ms_error ms_paths predef_symbols ms_files
 	| not ok
 		= (No,  predef_symbols, hash_table, { ms & ms_files = ms_files, ms_io = ms_io, ms_error = ms_error })
 	# (ok, mod, nr_of_global_funs, mod_functions, dcl_mod, predef_mod, modules, hash_table, ms_error, predef_symbols, ms_files)
@@ -252,10 +252,6 @@ where
 			= show_component funs show_types fun_defs (file <<< fun_def)
 //		= show_component funs show_types fun_defs (file <<< fun_def.fun_symb)
 
-instance <<< Optional a | <<< a
-where
-	(<<<) file (Yes x)	= file <<< x
-	(<<<) file No		= file
 	
 showComponents2 :: !{! Group} !Int !*{# FunDef} !{! ConsClasses} !*File  -> (!*{# FunDef},!*File)
 showComponents2 comps comp_index fun_defs acc_args file
-- 
cgit v1.2.3