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
---
 backend/backendconvert.icl | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'backend')

diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl
index df92ea1..23ab64d 100644
--- a/backend/backendconvert.icl
+++ b/backend/backendconvert.icl
@@ -1865,14 +1865,8 @@ where
 				=	[]
 	convertExpr (TupleSelect {ds_arity} n expr)
 		=	beTupleSelectNode ds_arity n (convertExpr expr)
-	convertExpr (MatchExpr optionalTuple {glob_module, glob_object={ds_index}} expr)
-		=	beMatchNode (arity optionalTuple) (beConstructorSymbol glob_module ds_index) (convertExpr expr)
-		where
-			arity :: (Optional (Global DefinedSymbol)) -> Int
-			arity No
-				=	1
-			arity (Yes {glob_object={ds_arity}})
-				=	ds_arity
+	convertExpr (MatchExpr {glob_module, glob_object={ds_index,ds_arity}} expr)
+		=	beMatchNode ds_arity (beConstructorSymbol glob_module ds_index) (convertExpr expr)
 	convertExpr (Conditional {if_cond=cond, if_then, if_else=Yes else})
 		=	beIfNode (convertExpr cond) (convertExpr if_then) (convertExpr else)
 
-- 
cgit v1.2.3