@@ -118,10 +118,10 @@ translateIdentifier =
118118 , "yield"
119119 ]
120120
121−translateNamespace :: Name -> [String]
122−translateNamespace (UN _) = [idrNamespace]
123−translateNamespace (NS _ ns) = idrNamespace : map translateIdentifier ns
124−translateNamespace (MN _ _) = [idrNamespace]
121+translateNamespace :: Name -> String
122+translateNamespace (UN _) = idrNamespace
123+translateNamespace (NS _ ns) = idrNamespace ++ concatMap translateIdentifier ns
124+translateNamespace (MN _ _) = idrNamespace
125125
126126translateName :: Name -> String
127127translateName (UN name) = translateIdentifier name
@@ -150,7 +150,7 @@ translateParameterlist =
150150
151151translateDeclaration :: (String, SDecl) -> String
152152translateDeclaration (path, SFun name params stackSize body) =
153− "var " ++ concat (path ++ [translateName name])
153+ "var " ++ path ++ translateName name
154154 ++ " = function("
155155 ++ intercalate "," p
156156 ++ "){\n"
@@ -509,7 +509,7 @@ createTailcall call =
509509 idrRTNamespace ++ "tailcall(function(){return " ++ call ++ "})"
510510
511511translateFunctionCall name vars =
512− concat (translateNamespace name)
512+ translateNamespace name
513513 ++ translateName name
514514 ++ "("
515515 ++ intercalate "," (map translateVariableName vars)