msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fix in GF.Compile.Compute.ConcreteNew which makes it possible to compile DocumentationBul.gf

Browse Source
This commit is contained in:
kr.angelov
2014-02-17 09:00:14 +00:00
parent 86f1e7004c
commit e566756746
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/GF/Compile/Compute/ConcreteNew.hs
View File

@@ -392,6 +392,7 @@ vapply v vs =
msg = bug . (("Applying Predef."++showIdent (predefName pre)++": ")++) msg = bug . (("Applying Predef."++showIdent (predefName pre)++": ")++)
VS (VV t pvs fs) s -> VS (VV t pvs [vapply f vs|f<-fs]) s VS (VV t pvs fs) s -> VS (VV t pvs [vapply f vs|f<-fs]) s
VFV fs -> vfv [vapply f vs|f<-fs] VFV fs -> vfv [vapply f vs|f<-fs]
VCApp f vs0 -> VCApp f (vs0++vs)
v -> bug $ "vapply "++show v++" "++show vs v -> bug $ "vapply "++show v++" "++show vs
vbeta bt f (v:vs) = vbeta bt f (v:vs) =