@@ -153,7 +153,9 @@ translateConstant c =
153 "(function(){throw 'Unimplemented Const: " ++ show c ++ "';})()"
153 "(function(){throw 'Unimplemented Const: " ++ show c ++ "';})()"
155translateParameterlist =
155translateParameterlist =
156+ map translateParameter
156− map (\(MN i name) -> name ++ show i)
157+ where translateParameter (MN i name) = name ++ show i
158+ translateParameter (UN name) = name
158translateDeclaration :: NamespaceName -> SDecl -> String
160translateDeclaration :: NamespaceName -> SDecl -> String
159translateDeclaration modname (SFun name params stackSize body) =
161translateDeclaration modname (SFun name params stackSize body) =