diff options
| author | johnvg | 2001-12-13 12:27:32 +0000 |
|---|---|---|
| committer | johnvg | 2001-12-13 12:27:32 +0000 |
| commit | 83a334aa9824aff2756925db9f3fadc94a2c140a (patch) | |
| tree | 5a41f0b156342a1e37ab0abd1534d1629c92576c /frontend/overloading.icl | |
| parent | Lifting of dynamic expressions repaired (diff) | |
remove tuple symbol from UniqueSelector (! selector) and MatchExpr
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@935 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/overloading.icl')
| -rw-r--r-- | frontend/overloading.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/frontend/overloading.icl b/frontend/overloading.icl index a0f9947..ec04b37 100644 --- a/frontend/overloading.icl +++ b/frontend/overloading.icl @@ -1408,9 +1408,9 @@ where | isEmpty uni_vars = (DynamicExpr { dyn & dyn_expr = dyn_expr, dyn_type_code = type_code }, ui) = (DynamicExpr { dyn & dyn_expr = dyn_expr, dyn_type_code = TCE_UniType uni_vars type_code }, ui) - updateExpression group_index (MatchExpr opt_tuple cons_symbol expr) ui + updateExpression group_index (MatchExpr cons_symbol expr) ui # (expr, ui) = updateExpression group_index expr ui - = (MatchExpr opt_tuple cons_symbol expr, ui) + = (MatchExpr cons_symbol expr, ui) updateExpression group_index (TupleSelect symbol argn_nr expr) ui # (expr, ui) = updateExpression group_index expr ui = (TupleSelect symbol argn_nr expr, ui) |