removed unused function makeCase

636fe443 · Ronny Wichers Schreur · 0bc666e7 · 636fe443
Commit 636fe443 authored Oct 04, 2001 by Ronny Wichers Schreur
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 12 deletions

frontend/convertcases.icl frontend/convertcases.icl +0 -12

No files found.
--- 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