From 83a334aa9824aff2756925db9f3fadc94a2c140a Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 13 Dec 2001 12:27:32 +0000
Subject: 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
---
 frontend/overloading.icl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'frontend/overloading.icl')

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)
-- 
cgit v1.2.3