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

minor stylistic change in GenerateBC

Browse Source
This commit is contained in:
kr.angelov
2014-09-29 15:08:00 +00:00
parent 698329f469
commit 2f7bd0306f
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Compile/GenerateBC.hs
View File

@@ -53,7 +53,8 @@ compileEquations gr arity st (i:is) eqs fl bs = whilePP eqs Map.empty
whilePV ((vs, PTilde _ : ps, t):eqs) vrs = whilePV eqs (( vs,ps,t) : vrs)
whilePV ((vs, PImplArg p:ps, t):eqs) vrs = whilePV ((vs,p:ps,t):eqs) vrs
whilePV ((vs, PT _ p : ps, t):eqs) vrs = whilePV ((vs,p:ps,t):eqs) vrs
whilePV eqs vrs = let (bs1,instrs1) = compileEquations gr arity st is vrs (Just (st,length bs1)) bs
whilePV eqs vrs = let fl1 = Just (st,length bs1)
(bs1,instrs1) = compileEquations gr arity st is vrs fl1 bs
(bs2,instrs2) = compileEquations gr arity st (i:is) eqs fl (instrs2:bs1)
in (bs2,instrs1)