Commit eb5ead98 authored by John van Groningen's avatar John van Groningen
Browse files

fix incorrect array index in function cannot_unify

parent ff5df190
......@@ -231,7 +231,8 @@ cannot_unify t1 t2 position common_defs err
CP_FunArg _ _
-> ea_file <<< "\"" <<< position <<< "\""
CP_SymbArg {symb_kind=SK_Constructor {glob_module,glob_object},symb_ident} arg_n
-> case common_defs.[glob_module].com_type_defs.[glob_object].td_rhs of
#! type_index = common_defs.[glob_module].com_cons_defs.[glob_object].cons_type_index
-> case common_defs.[glob_module].com_type_defs.[type_index].td_rhs of
RecordType {rt_fields}
# field_name = rt_fields.[arg_n-1].fs_ident.id_name
record_name = symb_ident.id_name
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment