@@ -42,9 +42,7 @@ data JsAST = JsEmpty
4242 | JsErrorExp JsAST
4343 | JsBinOp Text JsAST JsAST
4444 | JsForeign Text [JsAST]
45− -- | JsB2I JsAST
4645 | JsWhileTrue JsAST
47− -- | JsFor (JsAST, JsAST, JsAST) JsAST
4846 | JsContinue
4947 | JsBreak
5048 | JsTrue
@@ -115,14 +113,6 @@ jsAst2Text (JsFun name args body) =
115113 , indent $ jsAst2Text body
116114 , "}\n"
117115 ]
118−{-jsAst2Text (JsCurryFun name args body) =
119− T.concat [ "var ", name, " = \n"
120− , indent $ T.concat [ "(function(){\n"
121− , indent $ curryDef args body
122− , "})()"
123− ]
124− ]
125−-}
126116jsAst2Text (JsReturn x) = T.concat [ "return ", jsAst2Text x]
127117jsAst2Text (JsApp fn args) = T.concat [fn, "(", T.intercalate ", " $ map jsAst2Text args, ")"]
128118jsAst2Text (JsCurryApp fn []) = jsAst2Text fn
@@ -139,7 +129,7 @@ jsAst2Text (JsSeq JsEmpty y) = jsAst2Text y
139129jsAst2Text (JsSeq x JsEmpty) = jsAst2Text x
140130jsAst2Text (JsSeq x y) = T.concat [jsAst2Text x, ";\n", jsAst2Text y]
141131jsAst2Text (JsConst name exp) = T.concat [ "var ", name, " = ", jsAst2Text exp] -- using var instead of const until ES6
142−jsAst2Text (JsLet name exp) = T.concat [ "var ", name, " = ", jsAst2Text exp] -- using var instead of const until ES6
132+jsAst2Text (JsLet name exp) = T.concat [ "var ", name, " = ", jsAst2Text exp] -- using var instead of let until ES6
143133jsAst2Text (JsSetVar name exp) = T.concat [ name, " = ", jsAst2Text exp]
144134jsAst2Text (JsArrayProj i exp) = T.concat [ jsAst2Text exp, "[", jsAst2Text i, "]"]
145135jsAst2Text (JsInt i) = T.pack $ show i ++ "|0"
@@ -162,17 +152,11 @@ jsAst2Text (JsForeign code args) =
162152 let args_repl c i [] = c
163153 args_repl c i (t:r) = args_repl (T.replace ("%" `T.append` T.pack (show i)) t c) (i+1) r
164154 in T.concat ["(", args_repl code 0 (map jsAst2Text args), ")"]
165−--jsAst2Text (JsB2I x) = jsAst2Text $ JsBinOp "+" x (JsNum 0)
166155jsAst2Text (JsWhileTrue w) =
167156 T.concat [ "while(true){\n"
168157 , indent $ jsAst2Text w
169158 , "}\n"
170159 ]
171−{-jsAst2Text (JsFor (x,y,z) w) =
172− T.concat [ "for(", jsAst2Text x , "; ",jsAst2Text y, "; ",jsAst2Text z,"){\n"
173− , indent $ jsAst2Text w
174− , "}\n"
175− ]-}
176160jsAst2Text JsContinue =
177161 "continue"
178162jsAst2Text JsBreak =