From 87b55df10f00fd23d89a89bfb7c4354ff455d83d Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 11 Jan 2005 15:06:12 +0000 Subject: -val optimization --- src/GF/Source/SkelGF.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/GF/Source/SkelGF.hs') diff --git a/src/GF/Source/SkelGF.hs b/src/GF/Source/SkelGF.hs index 544473533..73a78c5a2 100644 --- a/src/GF/Source/SkelGF.hs +++ b/src/GF/Source/SkelGF.hs @@ -206,6 +206,7 @@ transExp x = case x of EApp exp0 exp -> failure x ETable cases -> failure x ETTable exp cases -> failure x + EVTable exp exps -> failure x ECase exp cases -> failure x EVariants exps -> failure x EPre exp alterns -> failure x -- cgit v1.2.3