diff options
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 94d18a0..0617577 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -236,12 +236,13 @@ wantModule :: !Bool !Ident !*HashTable !*File !SearchPaths !*PredefinedSymbols ! wantModule iclmodule file_id=:{id_name} hash_table error searchPaths pre_def_symbols files # file_name = if iclmodule (id_name +++ ".icl") (id_name +++ ".dcl") = case openScanner file_name searchPaths files of - (Yes scanState, files) -> initModule file_name scanState pre_def_symbols files + (Yes scanState, files) -> initModule file_name scanState hash_table error pre_def_symbols files (No , files) -> let mod = { mod_name = file_id, mod_type = MK_None, mod_imports = [], mod_imported_objects = [], mod_defs = [] } in (False, mod, hash_table, error <<< "Could not open: " <<< file_name <<< "\n", pre_def_symbols, files) where - initModule :: String ScanState !*PredefinedSymbols *Files -> (!Bool, !ParsedModule, !*HashTable, !*File, !*PredefinedSymbols, !*Files) - initModule file_name scanState pre_def_symbols files + initModule :: String ScanState !*HashTable !*File !*PredefinedSymbols *Files + -> (!Bool, !ParsedModule, !*HashTable, !*File, !*PredefinedSymbols, !*Files) + initModule file_name scanState hash_table error pre_def_symbols files # (succ, mod_type, mod_name, scanState) = try_module_header iclmodule scanState | succ # pState = { ps_scanState = scanState |