diff options
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 85e3364..2776d36 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -274,14 +274,13 @@ cWantDclFile :== False wantModule :: !*File !{#Char} !Bool !Ident !Position !Bool !*HashTable !*File !*Files -> (!Bool,!Bool,!ParsedModule, !*HashTable, !*File, !*Files) wantModule file modification_time iclmodule file_id=:{id_name} import_file_position support_generics hash_table error files - # scanState = openScanner file id_name file_name_extension + # scanState = openScanner file file_name # hash_table=set_hte_mark (if iclmodule 1 0) hash_table # (ok,dynamic_type_used,mod,hash_table,file,files) = initModule file_name modification_time scanState hash_table error files hash_table=set_hte_mark 0 hash_table = (ok,dynamic_type_used,mod,hash_table,file,files) where - file_name = id_name +++ file_name_extension - file_name_extension = if iclmodule ".icl" ".dcl" + file_name = id_name +++ if iclmodule ".icl" ".dcl" initModule :: String String ScanState !*HashTable !*File *Files -> (!Bool,!Bool,!ParsedModule,!*HashTable,!*File,!*Files) |