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