Browse Source

minor fix for completion

Nicolas Cannasse 13 years ago
parent
commit
24f815b1a0
1 changed files with 2 additions and 1 deletions
  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