浏览代码

fixed issue #288

Nicolas Cannasse 14 年之前
父节点
当前提交
a334f85588
共有 1 个文件被更改,包括 1 次插入1 次删除
  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