diff options
| author | sjakie | 1999-10-07 15:31:09 +0000 |
|---|---|---|
| committer | sjakie | 1999-10-07 15:31:09 +0000 |
| commit | 0a21b6312579edee6df2f7e378fc7437bbeb21a3 (patch) | |
| tree | 4d3c7d17ad3ade84d46f26c4a277dda7e1ec26e0 /frontend/main.icl | |
| parent | cvs test (sjaak) (diff) | |
*** empty log message ***
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@11 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/main.icl')
| -rw-r--r-- | frontend/main.icl | 6 |
1 files changed, 1 insertions, 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 |