소스 검색

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