diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-09-29 15:08:00 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-09-29 15:08:00 +0000 |
| commit | f70eecb63c18abad54f1e8b4ac3cb09669725e6a (patch) | |
| tree | 8cab83666295cfa7aae8b6565349dc2257053c1f /src/compiler/GF/Compile/GenerateBC.hs | |
| parent | 80acad444792b77a77b6fa232989e1d2caf8c673 (diff) | |
minor stylistic change in GenerateBC
Diffstat (limited to 'src/compiler/GF/Compile/GenerateBC.hs')
| -rw-r--r-- | src/compiler/GF/Compile/GenerateBC.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler/GF/Compile/GenerateBC.hs b/src/compiler/GF/Compile/GenerateBC.hs index e5700936b..e4517d2c7 100644 --- a/src/compiler/GF/Compile/GenerateBC.hs +++ b/src/compiler/GF/Compile/GenerateBC.hs @@ -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) |