@@ -164,7 +164,7 @@ generateCode expr =
164164 jsBlock $
165165 VarDeclStmt () (zipWith varDecl tempNames args')
166166 : zipWith reassign argNames tempNames
167− ++ [ContinueStmt () (Just (Id () name))]
167+ ++ [ContinueStmt () (Just (Id () (Var.safe name)))]
168168
169169 Let defs body ->
170170 do stmts <- mapM generateDef defs
@@ -226,7 +226,7 @@ generateTailFunction name args body =
226226 do code <- generateCode body
227227 return $ generateFunctionWithArity args $ JsBlock $ (:[]) $
228228 LabelledStmt ()
229− (Id () name)
229+ (Id () (Var.safe name))
230230 (WhileStmt () (BoolLit () True) (toStatement code))
231231
232232