Commit c640ef69 authored by John van Groningen's avatar John van Groningen
Browse files

remove unused constructor WildCard

parent 0f9d052d
......@@ -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
......
......@@ -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
......
......@@ -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]
......
......@@ -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 **"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment