diff options
| author | alimarin | 2002-03-25 15:04:33 +0000 |
|---|---|---|
| committer | alimarin | 2002-03-25 15:04:33 +0000 |
| commit | 5ed289050bba7924972700181478cb22e9d69c70 (patch) | |
| tree | 43d0c8ebe33e14ad0d4f637ddae3de94acd7bf07 /frontend/StdCompare.icl | |
| parent | fix version number (diff) | |
new implementation of generics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1062 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/StdCompare.icl')
| -rw-r--r-- | frontend/StdCompare.icl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/frontend/StdCompare.icl b/frontend/StdCompare.icl index 7495abf..91593b7 100644 --- a/frontend/StdCompare.icl +++ b/frontend/StdCompare.icl @@ -117,6 +117,11 @@ where instance == SignClassification where (==) sc1 sc2 = sc1.sc_pos_vect == sc2.sc_pos_vect && sc1.sc_neg_vect == sc2.sc_neg_vect +instance == TypeCons where + (==) (TypeConsSymb x) (TypeConsSymb y) = x == y + (==) (TypeConsBasic x) (TypeConsBasic y) = x == y + (==) TypeConsArrow TypeConsArrow = True + :: CompareValue :== Int Smaller :== -1 Greater :== 1 |