diff options
| author | alimarin | 2002-06-03 09:49:30 +0000 |
|---|---|---|
| committer | alimarin | 2002-06-03 09:49:30 +0000 |
| commit | 4505f798844949021d529670dde91dcd0d22f9cd (patch) | |
| tree | be3742504873d11df0bbecae502e609935c3fe84 /frontend/StdCompare.icl | |
| parent | - improved handling of equivalent types within one application to share a (diff) | |
added constructor/type/field information to generics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1079 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/StdCompare.icl')
| -rw-r--r-- | frontend/StdCompare.icl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/frontend/StdCompare.icl b/frontend/StdCompare.icl index 64ba219..f902857 100644 --- a/frontend/StdCompare.icl +++ b/frontend/StdCompare.icl @@ -129,6 +129,8 @@ instance == TypeCons where (==) (TypeConsSymb x) (TypeConsSymb y) = x == y (==) (TypeConsBasic x) (TypeConsBasic y) = x == y (==) TypeConsArrow TypeConsArrow = True + (==) (TypeConsVar x) (TypeConsVar y) = x == y + (==) _ _ = False :: CompareValue :== Int Smaller :== -1 |