From 87b36edd6b827e9a9f03a39f874fc629f52e81f6 Mon Sep 17 00:00:00 2001
From: alimarin
Date: Wed, 14 May 2003 15:23:13 +0000
Subject: foldExp - added alternative for EE

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1339 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/generics1.icl | 2 ++
 1 file changed, 2 insertions(+)

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)
-- 
cgit v1.2.3