commit - 79a1dd264e6d05638dd7a063f437906682b08191
commit + 3cfecbe70b45740a6dccf418da6e546e32c9c24e
blob - cf65bfa5442dfa6cf9332c970fce8fb384d45dcd
blob + 075cc0dd6f8884cd45254d27e2e00f9d5d851fb2
--- bfc.hs
+++ bfc.hs
@@ -174,7 +174,8 @@ compile' n h ((x:xs):ys) trail =
                   LoadW(n+2, n+1)    :
                   Jnz(n+2, h+1, h+2) :
                   Label(h+1)         :
-                  compile' (n+3) (h+3) (ast:(xs:ys)) ([Jmp(h), Label(h+2)]:trail)
+                  compile' (n+3) (h+3) (ast:(xs:ys)) newtrail
+      where newtrail = ([Jmp(h), Label(h+2)]:trail)
 compile' n h ([]:ys) (t:ts) = t ++ (compile' n h ys ts)
 compile' _ _ _ _ = []