fix hoisting by adding new funs to hoisted set

compiler/src/l3/CPSHoister.scala

@@ -15,8 +15,7 @@ object CPSHoister extends (Tree => LetF) {
         .unzip
       val LetF(funsHoistedBody, hoistedBody) = apply(body)
 
-      val funsHoistedFlat = (funsHoistedCnts :+ funsHoistedBody).flatten
-
+      val funsHoistedFlat = funsHoistedCnts.flatten ++ funsHoistedBody
       LetF(funsHoistedFlat, LetC(newCnts, hoistedBody))
 
     case LetF(funs, body) =>
@@ -27,7 +26,7 @@ object CPSHoister extends (Tree => LetF) {
         }.unzip
 
       val LetF(funsHoistedBody, hoistedBody) = apply(body)
-      val funsHoistedFlat = (funsHoistedFuns :+ funsHoistedBody).flatten
+      val funsHoistedFlat = newFuns ++ funsHoistedFuns.flatten ++ funsHoistedBody
       LetF(funsHoistedFlat, hoistedBody)
 
     case e => LetF(Seq(), e)