diff options
| author | johnvg | 2001-08-31 10:47:18 +0000 |
|---|---|---|
| committer | johnvg | 2001-08-31 10:47:18 +0000 |
| commit | 09c5472dec69b963a9134010dd18868123ad8683 (patch) | |
| tree | c6ed23ae1b8113586cb764b246889c8741f10f5c /frontend/comparedefimp.icl | |
| parent | added symbol_heap parameter to newHashTable (diff) | |
added code for OverloadedListPatterns
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@705 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/comparedefimp.icl')
| -rw-r--r-- | frontend/comparedefimp.icl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/frontend/comparedefimp.icl b/frontend/comparedefimp.icl index 2b90484..48f324e 100644 --- a/frontend/comparedefimp.icl +++ b/frontend/comparedefimp.icl @@ -756,6 +756,8 @@ instance e_corresponds CasePatterns where e_corresponds (BasicPatterns dcl_basic_type dcl_patterns) (BasicPatterns icl_basic_type icl_patterns) = equal2 dcl_basic_type icl_basic_type o` e_corresponds dcl_patterns icl_patterns + e_corresponds (OverloadedListPatterns dcl_alg_type _ dcl_patterns) (OverloadedListPatterns icl_alg_type _ icl_patterns) + = e_corresponds dcl_patterns icl_patterns e_corresponds (DynamicPatterns dcl_patterns) (DynamicPatterns icl_patterns) = e_corresponds dcl_patterns icl_patterns e_corresponds NoPattern NoPattern |