diff options
| author | martinw | 2000-04-26 09:10:34 +0000 |
|---|---|---|
| committer | martinw | 2000-04-26 09:10:34 +0000 |
| commit | 1e8f9d92be20258186661009221e60034fc53f06 (patch) | |
| tree | 7b82bbcc810aa9fdfa04b0912914a8139d8683bc /frontend/StdCompare.icl | |
| parent | small bugfix (diff) | |
changes to make compiler compatible with itself
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@126 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/StdCompare.icl')
| -rw-r--r-- | frontend/StdCompare.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/frontend/StdCompare.icl b/frontend/StdCompare.icl index c9159c3..b9785ca 100644 --- a/frontend/StdCompare.icl +++ b/frontend/StdCompare.icl @@ -11,7 +11,7 @@ instance == FunKind where (==) fk1 fk2 = equal_constructor fk1 fk2 -instance == Global a | == a +instance == (Global a) | == a where (==) g1 g2 = g1.glob_module == g2.glob_module && g1.glob_object == g2.glob_object @@ -188,7 +188,7 @@ where (=<) id1 id2 = id1.id_name =< id2.id_name -instance =< Global a | =< a +instance =< (Global a) | =< a where (=<) g1 g2 = (g1.glob_module,g1.glob_object) =< (g2.glob_module,g2.glob_object) |