Nicolas Cannasse 14 ani în urmă
părinte
comite
a334f85588
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  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