@@ -80,10 +80,13 @@ data JS = JSRaw String
8080 | JSTernary JS JS JS
8181 | JSParens JS
8282 | JSWhile JS JS
83+ | JSNoop
8384 deriving Eq
8485
8586
8687compileJS :: JS -> String
88+compileJS JSNoop = ""
89+
8790compileJS (JSRaw code) =
8891 code
8992
@@ -938,6 +941,7 @@ unfoldLookupTable input =
938941 | fun == lt = (js, front ++ back)
939942
940943 extractLT' (front, js:back) = extractLT' (front ++ [js], back)
944+ extractLT' (front, back) = (JSNoop, front ++ back)
941945
942946
943947 expandLT :: String -> JS -> [(Int, JS)]
@@ -951,6 +955,8 @@ unfoldLookupTable input =
951955
952956 expandEntry js = Nothing
953957
958+ expandLT lt JSNoop = []
959+
954960
955961removeInstanceChecks :: JS -> JS
956962removeInstanceChecks (JSCond conds) =