Преглед на файлове

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