浏览代码

minor completion fix

Nicolas Cannasse 14 年之前
父节点
当前提交
fc87aca958
共有 1 个文件被更改,包括 2 次插入1 次删除
  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
 				| _ ->