From 621291a575cd4462729a178158def39d0d411c8f Mon Sep 17 00:00:00 2001 From: hallgren Date: Mon, 10 Dec 2012 13:25:32 +0000 Subject: Compute.ConcreteNew: add missing case for variant functions Also adding a test case in the test suite for this. --- src/compiler/GF/Compile/Compute/ConcreteNew.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/compiler/GF/Compile/Compute') diff --git a/src/compiler/GF/Compile/Compute/ConcreteNew.hs b/src/compiler/GF/Compile/Compute/ConcreteNew.hs index 828340279..0519a84bd 100644 --- a/src/compiler/GF/Compile/Compute/ConcreteNew.hs +++ b/src/compiler/GF/Compile/Compute/ConcreteNew.hs @@ -267,6 +267,7 @@ vapply v vs = -- VClosure env (Abs b x t) -> beta gr env b x t vs VAbs bt _ (Bind f) -> vbeta bt f vs VS (VV t fs) s -> VS (VV t [vapply f vs|f<-fs]) s + VFV fs -> vfv [vapply f vs|f<-fs] v -> bug $ "vapply "++show v++" "++show vs vbeta bt f (v:vs) = -- cgit v1.2.3