@@ -806,23 +806,16 @@ translateDeclaration (path, SFun name params stackSize body)
806806 JSFunction (p ++ map snd aux) (
807807 JSSeq $
808808 zipWith assignVar [0..] p ++
809− map allocVar [numP .. (numP + stackSize - 1)] ++
810809 map assignAux aux ++
811810 [JSReturn body]
812811 )
813812 where
814− numP :: Int
815− numP = length params
816−
817− allocVar :: Int -> JS
818− allocVar n = JSAlloc (jsVar n) Nothing
819−
820813 assignVar :: Int -> String -> JS
821814 assignVar n s = JSAlloc (jsVar n) (Just $ JSIdent s)
822815
823816 assignAux :: (LVar, String) -> JS
824− assignAux (var, val) =
825− JSAssign (JSIdent $ translateVariableName var) (JSIdent val)
817+ assignAux (Loc var, val) =
818+ JSAlloc (jsVar var) (Just $ JSIdent val)
826819
827820 p :: [String]
828821 p = map translateName params