From e56675674653161cf13f769a08baa2887efc817b Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Mon, 17 Feb 2014 09:00:14 +0000
Subject: [PATCH] fix in GF.Compile.Compute.ConcreteNew which makes it possible
 to compile DocumentationBul.gf

---
 src/compiler/GF/Compile/Compute/ConcreteNew.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/compiler/GF/Compile/Compute/ConcreteNew.hs b/src/compiler/GF/Compile/Compute/ConcreteNew.hs
index dd49fffed..f98ed1c90 100644
--- a/src/compiler/GF/Compile/Compute/ConcreteNew.hs
+++ b/src/compiler/GF/Compile/Compute/ConcreteNew.hs
@@ -392,6 +392,7 @@ vapply v vs =
         msg = bug . (("Applying Predef."++showIdent (predefName pre)++": ")++)
     VS (VV t pvs fs) s -> VS (VV t pvs [vapply f vs|f<-fs]) s
     VFV fs -> vfv [vapply f vs|f<-fs]
+    VCApp f vs0 -> VCApp f (vs0++vs)
     v -> bug $ "vapply "++show v++" "++show vs
 
 vbeta bt f (v:vs) =