From b5cc77aea18e5855e95ddc1fb67039d99a2e956a Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Tue, 14 Oct 2014 10:39:28 +0000 Subject: [PATCH] yet another bugfix in the byte code --- src/compiler/GF/Compile/GenerateBC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler/GF/Compile/GenerateBC.hs b/src/compiler/GF/Compile/GenerateBC.hs index 18c75b0b8..a121a3d5e 100644 --- a/src/compiler/GF/Compile/GenerateBC.hs +++ b/src/compiler/GF/Compile/GenerateBC.hs @@ -202,7 +202,7 @@ compileLambda gr st vs xs e h0 bs = (arity+1) (zip xs (map ARG_VAR [0..]) ++ zip ys (map FREE_VAR [0..])) - e bs + e (b1:bs) b1 = if arity == 0 then b else CHECK_ARGS arity:b @@ -210,7 +210,7 @@ compileLambda gr st vs xs e h0 bs = then [SET_PAD] else map (SET . shiftIVal st . getVar vs) ys h1 = h0 + 1 + length is - in (h1,b1:bs1,HEAP h0,PUT_CLOSURE (length bs1) : is) + in (h1,bs1,HEAP h0,PUT_CLOSURE (length bs) : is) getVar vs x = case lookup x vs of