diff options
| author | johnvg | 2001-10-18 11:33:45 +0000 |
|---|---|---|
| committer | johnvg | 2001-10-18 11:33:45 +0000 |
| commit | ddda5856e49c82fb6d5a4a94dae46a93ceade138 (patch) | |
| tree | 9a230fd07c464bed267be66bab103c62901860ec /frontend/StdCompare.icl | |
| parent | Bug fixes: too many error messages were printed (diff) | |
store macros and local functions in macros in separate {#{#FunDef}},
remove conversion table, except for macros
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@863 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 12978bb..10a9455 100644 --- a/frontend/StdCompare.icl +++ b/frontend/StdCompare.icl @@ -99,6 +99,7 @@ instance == Priority where (==) NoPrio NoPrio = True (==) (Prio assoc1 prio1) (Prio assoc2 prio2) = assoc1==assoc2 && prio1==prio2 + (==) _ _ = False instance == Assoc where @@ -137,6 +138,7 @@ where // compare_indexes (SK_InternalFunction i1) (SK_InternalFunction i2) = i1 =< i2 compare_indexes (SK_OverloadedFunction i1) (SK_OverloadedFunction i2) = i1 =< i2 compare_indexes (SK_GeneratedFunction _ i1) (SK_GeneratedFunction _ i2) = i1 =< i2 + compare_indexes (SK_LocalDclMacroFunction i1) (SK_LocalDclMacroFunction i2) = i1 =< i2 | less_constructor symb1 symb2 = Smaller |