瀏覽代碼

fixed broken completion

Nicolas Cannasse 14 年之前
父節點
當前提交
42db7e0c11
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      parser.ml

+ 4 - 1
parser.ml

@@ -221,7 +221,10 @@ and parse_package s = psep Dot ident s
 and parse_class_field_resume s =
 	if not (do_resume()) then
 		plist parse_class_field s
-	else try
+	else match Stream.peek s with
+		| Some (BrClose,_) -> []
+		| _ ->
+	try
 		let c = parse_class_field s in
 		c :: parse_class_field_resume s
 	with Stream.Error _ | Stream.Failure -> try