Browse Source

fixed issue #288

Nicolas Cannasse 14 years ago
parent
commit
a334f85588
1 changed files with 1 additions and 1 deletions
  1. 1 1
      genswf.ml

+ 1 - 1
genswf.ml

@@ -214,7 +214,7 @@ let build_class com c file =
 		let i = (match i with
 			| HMMultiName (Some id,ns) ->
 				let rec loop = function
-					| [] -> assert false
+					| [] -> HMPath ([],id)
 					| HNPublic (Some ns) :: _ -> HMPath (ExtString.String.nsplit ns ".",id)
 					| _ :: l -> loop l
 				in