From 14b60733f7a265b82ad135e3371d1cd1db96b78a Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 21 Nov 2005 15:36:30 +0000
Subject: remove unused constructor WildCard

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1567 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/generics1.icl | 2 --
 frontend/partition.icl | 2 --
 frontend/syntax.dcl    | 1 -
 frontend/syntax.icl    | 1 -
 4 files changed, 6 deletions(-)

(limited to 'frontend')

diff --git a/frontend/generics1.icl b/frontend/generics1.icl
index 86aa01b..9e65187 100644
--- a/frontend/generics1.icl
+++ b/frontend/generics1.icl
@@ -3651,8 +3651,6 @@ foldExpr f expr=:(TupleSelect _ _ expr1) st
 	= foldExpr f expr1 st
 foldExpr f expr=:(BasicExpr _) st
 	= f expr st	
-foldExpr f expr=:WildCard st
-	= f expr st	
 foldExpr f expr=:(Conditional {if_cond,if_then,if_else}) st
 	# st = f expr st
 	# st = foldExpr f if_cond st	
diff --git a/frontend/partition.icl b/frontend/partition.icl
index 8c42f11..071cc0a 100644
--- a/frontend/partition.icl
+++ b/frontend/partition.icl
@@ -454,8 +454,6 @@ where
 		= find_calls fc_info expr fc_state
 	find_calls fc_info (BasicExpr _) fc_state
 		= fc_state
-	find_calls fc_info (WildCard) fc_state
-		= abort "WildCard"
 	find_calls fc_info (Conditional _) fc_state
 		= abort "Conditional"
 	find_calls fc_info (AnyCodeExpr _ _ _) fc_state
diff --git a/frontend/syntax.dcl b/frontend/syntax.dcl
index 4986059..ed6a337 100644
--- a/frontend/syntax.dcl
+++ b/frontend/syntax.dcl
@@ -1181,7 +1181,6 @@ cIsNotStrict	:== False
 				| RecordUpdate !(Global DefinedSymbol) !Expression ![Bind Expression (Global FieldSymbol)]
 				| TupleSelect !DefinedSymbol !Int !Expression
 				| BasicExpr !BasicValue
-				| WildCard
 				| Conditional !Conditional
 
 				| AnyCodeExpr !(CodeBinding BoundVar) !(CodeBinding FreeVar) ![String]
diff --git a/frontend/syntax.icl b/frontend/syntax.icl
index 6c88232..4866f1a 100644
--- a/frontend/syntax.icl
+++ b/frontend/syntax.icl
@@ -382,7 +382,6 @@ where
 	(<<<) file (RecordUpdate cons_symbol expression expressions) = file <<< '{' <<< cons_symbol <<< ' ' <<< expression <<< " & " <<< expressions <<< '}'
 	(<<<) file (TupleSelect field field_nr expr) = file <<< expr <<<'.' <<< field_nr
 //	(<<<) file (Lambda vars expr) = file <<< '\\' <<< vars <<< " -> " <<< expr
-	(<<<) file WildCard = file <<< '_'
 	(<<<) file (MatchExpr cons expr) = file <<< cons <<< " =: " <<< expr
 	(<<<) file EE = file <<< "** E **"
 	(<<<) file (NoBind _) = file <<< "** NB **"
-- 
cgit v1.2.3