diff options
| author | johnvg | 2011-03-21 10:26:33 +0000 |
|---|---|---|
| committer | johnvg | 2011-03-21 10:26:33 +0000 |
| commit | cf5d6fc67c48f64b20abb57b6f2f7f46f205e771 (patch) | |
| tree | a81a85526d16e96519294b7be86ce7b3643ceadd /frontend/comparedefimp.icl | |
| parent | update files for the Mac after removing some unused fields and values on Windows (diff) | |
remove unused field td_context from type TypeDef
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1884 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/comparedefimp.icl')
| -rw-r--r-- | frontend/comparedefimp.icl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/frontend/comparedefimp.icl b/frontend/comparedefimp.icl index a7a2ccf..17f32a7 100644 --- a/frontend/comparedefimp.icl +++ b/frontend/comparedefimp.icl @@ -734,12 +734,11 @@ instance t_corresponds (TypeDef TypeRhs) where = t_corresponds_TypeDef dclDef iclDef where t_corresponds_TypeDef dclDef iclDef tc_state -// | False--->("comparing:", dclDef, iclDef) -// = undef # tc_state = init_attr_vars dclDef.td_attrs iclDef.td_attrs tc_state tc_state = init_atype_vars dclDef.td_args iclDef.td_args tc_state - = t_corresponds (dclDef.td_args, (dclDef.td_rhs, (dclDef.td_context, dclDef.td_attribute))) - (iclDef.td_args, (iclDef.td_rhs, (iclDef.td_context, iclDef.td_attribute))) tc_state + = t_corresponds (dclDef.td_args, (dclDef.td_rhs, dclDef.td_attribute)) + (iclDef.td_args, (iclDef.td_rhs, iclDef.td_attribute)) tc_state + instance t_corresponds TypeContext where t_corresponds dclDef iclDef = t_corresponds dclDef.tc_class iclDef.tc_class |