diff options
| author | martinw | 2001-01-19 10:48:10 +0000 |
|---|---|---|
| committer | martinw | 2001-01-19 10:48:10 +0000 |
| commit | c3a59ece66a9f8b91ebfdf3fbd556ffd241b528c (patch) | |
| tree | f9792c858af73c71c67e6238cdacb0893efbfd0f /frontend/StdCompare.icl | |
| parent | exploiting "reuse unique nodes" option (diff) | |
refactoring
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@290 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/StdCompare.icl')
| -rw-r--r-- | frontend/StdCompare.icl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/frontend/StdCompare.icl b/frontend/StdCompare.icl index fb34ff4..5b03c09 100644 --- a/frontend/StdCompare.icl +++ b/frontend/StdCompare.icl @@ -94,6 +94,9 @@ instance == Assoc where (==) a1 a2 = equal_constructor a1 a2 +instance == SignClassification where + (==) sc1 sc2 = sc1.sc_pos_vect == sc2.sc_pos_vect && sc1.sc_neg_vect == sc2.sc_neg_vect + :: CompareValue :== Int Smaller :== -1 Greater :== 1 |