diff options
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/generics1.icl | 2 | ||||
| -rw-r--r-- | frontend/partition.icl | 2 | ||||
| -rw-r--r-- | frontend/syntax.dcl | 1 | ||||
| -rw-r--r-- | frontend/syntax.icl | 1 |
4 files changed, 0 insertions, 6 deletions
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 **" |