correctly handle push-calls!!!!!!!!

test/Gyehoek/Test/CPS/Stackify.hs

@@ -63,7 +63,7 @@ condition = testCase "if" do
     [cps|(if #f (continue halt 123) (continue halt 456))|]
 
 procedure = testGroup "procedure"
-  [ expectFail $ testCase "factorial" do
+  [ testCase "factorial" do
       evalsTo [ObjImm (ImmInt 720)]
         [cps|(letrec ((fac (λ (n ktail)
                              (prim (zero? n)