diff options
| author | alimarin | 2001-09-06 07:34:25 +0000 |
|---|---|---|
| committer | alimarin | 2001-09-06 07:34:25 +0000 |
| commit | e2da565ff20765c73edb3fa469bdd96d156ef874 (patch) | |
| tree | c992b93e2a7876328e8872fb1492be297cd1b8e8 /frontend/StdCompare.icl | |
| parent | moved function getBelongingSymbolsFromID from checksupport to explicitimports (diff) | |
removed usage of fun_index
fixed bugs in generics
reimplemented kind-indexed type specialization
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@742 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/StdCompare.icl')
| -rw-r--r-- | frontend/StdCompare.icl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/frontend/StdCompare.icl b/frontend/StdCompare.icl index b2eb24d..12978bb 100644 --- a/frontend/StdCompare.icl +++ b/frontend/StdCompare.icl @@ -11,6 +11,10 @@ where instance == AttributeVar where (==) varid1 varid2 = varid1.av_info_ptr == varid2.av_info_ptr + +instance == AttrInequality +where + (==) ai1 ai2 = ai1.ai_demanded == ai2.ai_demanded && ai1.ai_offered == ai2.ai_offered //..AA instance == FunKind @@ -60,7 +64,7 @@ where instance == DefinedSymbol where (==) ds1 ds2 - = ds1.ds_ident == ds2.ds_ident && ds1.ds_index == ds2.ds_index + = ds1.ds_index == ds2.ds_index //&& ds1.ds_ident == ds2.ds_ident instance == Type where |