diff options
| author | alimarin | 2003-05-14 15:23:13 +0000 |
|---|---|---|
| committer | alimarin | 2003-05-14 15:23:13 +0000 |
| commit | 87b36edd6b827e9a9f03a39f874fc629f52e81f6 (patch) | |
| tree | e99553ba7324a2b3b287b3e939985441ed9d4920 | |
| parent | improve printing of function names of case, lambda and if expressions for cle... (diff) | |
foldExp - added alternative for EE
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1339 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/generics1.icl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/frontend/generics1.icl b/frontend/generics1.icl index bba7595..79c5b70 100644 --- a/frontend/generics1.icl +++ b/frontend/generics1.icl @@ -3544,6 +3544,8 @@ foldExpr f expr=:(MatchExpr _ expr1) st foldExpr f expr=:(DynamicExpr {dyn_expr}) st # st = f expr st = foldExpr f dyn_expr st +foldExpr f EE st + = st foldExpr f expr st = abort "generic.icl: foldExpr does not match\n"//f expr st ---> ("foldExpr does not match", expr) |