From e3fbc2240040fab27aee667a3924e298f572b7d3 Mon Sep 17 00:00:00 2001
From: ronny
Date: Thu, 4 Oct 2001 10:17:38 +0000
Subject: removed unused function makeCase

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@826 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/convertcases.icl | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl
index 3bf7114..aa1682e 100644
--- a/frontend/convertcases.icl
+++ b/frontend/convertcases.icl
@@ -1159,18 +1159,6 @@ splitGuards (BasicPatterns basicType patterns)
 splitGuards (OverloadedListPatterns type decons_expr patterns)
 	=	[OverloadedListPatterns type decons_expr [pattern] \\ pattern <- patterns]
 
-makeCase :: Expression CasePatterns -> Expression
-makeCase expr guard
-	=	Case
-	{	case_expr		= expr
-	,	case_guards		= guard
-	,	case_default	= No
-	,	case_ident		= No
-	,	case_info_ptr	= nilPtr
-	,	case_explicit=False
-	,	case_default_pos= NoPos
-	}
-
 ::	TypedVariable =
 	{	tv_free_var	:: !FreeVar
 	,	tv_type		:: !AType
-- 
cgit v1.2.3