ソースを参照

minor fix for completion

Nicolas Cannasse 13 年 前
コミット
24f815b1a0
1 ファイル変更2 行追加1 行削除
  1. 2 1
      typer.ml

+ 2 - 1
typer.ml

@@ -1474,7 +1474,8 @@ and type_expr ctx ?(need_val=true) (e,p) =
 							unify ctx it t e1.epos;
 							make_call ctx acc [] t e1.epos
 						| _ ->
-							error "The field iterator is not a method" e1.epos
+							display_error ctx "The field iterator is not a method" e1.epos;
+							mk (TConst TNull) t_dynamic p
 					)
 				) in
 				let e2 = type_expr ~need_val:false ctx e2 in