diff options
| author | alimarin | 2002-06-11 14:24:28 +0000 |
|---|---|---|
| committer | alimarin | 2002-06-11 14:24:28 +0000 |
| commit | 17a843648636eb9d8575411fd8a5a3b1b414a9cc (patch) | |
| tree | de68f7de3e2aa8a40c7a141bb61939e3ec9fa9cd /frontend/comparedefimp.icl | |
| parent | Build ArgEnvC.o before linking (diff) | |
added comparison for TArrow and TArrow1 to comparedefimp
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1093 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/comparedefimp.icl')
| -rw-r--r-- | frontend/comparedefimp.icl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/frontend/comparedefimp.icl b/frontend/comparedefimp.icl index 9acbb72..bb35b8f 100644 --- a/frontend/comparedefimp.icl +++ b/frontend/comparedefimp.icl @@ -219,6 +219,10 @@ where = compare (dclIdent.type_index, (dclArgs,dclStrictness)) (iclIdent.type_index, (iclArgs,iclStrictness)) comp_st compare (dclFun --> dclArg) (iclFun --> iclArg) comp_st = compare (dclFun, dclArg) (iclFun, iclArg) comp_st + compare (TArrow1 dclArg) (TArrow1 iclArg) comp_st + = compare dclArg iclArg comp_st + compare TArrow TArrow comp_st + = (True, comp_st) compare (CV dclVar :@: dclArgs) (CV iclVar :@: iclArgs) comp_st = compare (dclVar, dclArgs) (iclVar, iclArgs) comp_st compare (TB dclDef) (TB iclDef) comp_st |