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