diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-02-17 09:00:14 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-02-17 09:00:14 +0000 |
| commit | 5b97e9637bf10f899552a513394cf8637063ad74 (patch) | |
| tree | 02b1a7f799676a708845fcb0dfbe6dec94d6aa0c | |
| parent | 29ac39c5cc3845ba143a46d2f0d970e888f2c628 (diff) | |
fix in GF.Compile.Compute.ConcreteNew which makes it possible to compile DocumentationBul.gf
| -rw-r--r-- | src/compiler/GF/Compile/Compute/ConcreteNew.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) = |