Nicolas Cannasse 16 年之前
父节点
当前提交
d11197bf54
共有 1 个文件被更改,包括 2 次插入3 次删除
  1. 2 3
      parser.ml

+ 2 - 3
parser.ml

@@ -209,12 +209,11 @@ and parse_class_field_resume s =
 			(match List.map fst (Stream.npeek 2 s) with
 			(match List.map fst (Stream.npeek 2 s) with
 			| Kwd Public :: _ | Kwd Static :: _ | Kwd Var :: _ | Kwd Override :: _ | Kwd Dynamic :: _ ->
 			| Kwd Public :: _ | Kwd Static :: _ | Kwd Var :: _ | Kwd Override :: _ | Kwd Dynamic :: _ ->
 				raise Exit
 				raise Exit
-			| [] | Eof :: _ | Kwd Extern :: _ | Kwd Class :: _ | Kwd Interface :: _ | Kwd Enum :: _ | Kwd Typedef :: _ ->
+			| [] | Eof :: _ | Kwd Import :: _ | Kwd Extern :: _ | Kwd Class :: _ | Kwd Interface :: _ | Kwd Enum :: _ | Kwd Typedef :: _ ->
 				raise Not_found
 				raise Not_found
 			| [Kwd Private; Kwd Function]
 			| [Kwd Private; Kwd Function]
 			| [Kwd Private; Kwd Var] ->
 			| [Kwd Private; Kwd Var] ->
 				raise Exit
 				raise Exit
-			| [Kwd Import]
 			| [Kwd Private; Kwd Class]
 			| [Kwd Private; Kwd Class]
 			| [Kwd Private; Kwd Interface]
 			| [Kwd Private; Kwd Interface]
 			| [Kwd Private; Kwd Enum]
 			| [Kwd Private; Kwd Enum]
@@ -535,7 +534,7 @@ and expr = parser
 		let e2 , s = (match s with parser
 		let e2 , s = (match s with parser
 			| [< '(Kwd Else,_); e2 = expr; s >] -> Some e2 , s
 			| [< '(Kwd Else,_); e2 = expr; s >] -> Some e2 , s
 			| [< >] ->
 			| [< >] ->
-				(* 
+				(*
 					we can't directly npeek 2 elements because this might
 					we can't directly npeek 2 elements because this might
 					remove some documentation tag.
 					remove some documentation tag.
 				*)
 				*)