add name normalization in tail optimization code
commit871b1f1b411c2131c1270e41a0c153c2dc757fae
authorJanis Voigtländer <jvoigtlaender@users.noreply.github.com>
dateWed 6 Jan 2016, 12:42 (11 years ago)
parent353930a
src/Generate/JavaScript/Expression.hs+1−1
@@ -157,7 +157,7 @@ generateCode expr =
157157 TailCall name argNames args ->
158158 let
159159 reassign name tempName =
160− ExprStmt () (AssignExpr () OpAssign (LVar () name) (ref tempName))
160+ ExprStmt () (AssignExpr () OpAssign (LVar () (Var.safe name)) (ref tempName))
161161 in
162162 do args' <- mapM generateJsExpr args
163163 tempNames <- mapM (\_ -> Var.fresh) args