From 2f7bd0306f4452a7631ff37805413b272b54c668 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Mon, 29 Sep 2014 15:08:00 +0000 Subject: [PATCH] minor stylistic change in GenerateBC --- src/compiler/GF/Compile/GenerateBC.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)