Browse Source

minor completion fix

Nicolas Cannasse 14 years ago
parent
commit
fc87aca958
1 changed files with 2 additions and 1 deletions
  1. 2 1
      typer.ml

+ 2 - 1
typer.ml

@@ -1439,7 +1439,8 @@ and type_expr ctx ?(need_val=true) (e,p) =
 				let e1 = (match follow e1.etype with
 				| TMono _
 				| TDynamic _ ->
-					error "You can't iterate on a Dynamic value, please specify Iterator or Iterable" e1.epos;
+					display_error ctx "You can't iterate on a Dynamic value, please specify Iterator or Iterable" e1.epos;
+					e1
 				| TLazy _ ->
 					assert false
 				| _ ->