@@ -354,13 +354,7 @@ translateDeclaration (path, SFun name params stackSize body)
354 assignVar n s = JSAlloc (jsVar n) (Just $ JSRaw s)
354 assignVar n s = JSAlloc (jsVar n) (Just $ JSRaw s)
356 p :: [String]
356 p :: [String]
357− p = map translateParameter params
357+ p = map translateName params
359− translateParameter :: Name -> String
360− translateParameter (MN i name) =
361− translateIdentifier name ++ show i
362− translateParameter (UN name) =
363− translateIdentifier name
365translateVariableName :: LVar -> String
359translateVariableName :: LVar -> String
366translateVariableName (Loc i) =
360translateVariableName (Loc i) =