瀏覽代碼

untyped return Dynamic.

Nicolas Cannasse 20 年之前
父節點
當前提交
66e48ef5b2
共有 1 個文件被更改,包括 5 次插入1 次删除
  1. 5 1
      typer.ml

+ 5 - 1
typer.ml

@@ -860,7 +860,11 @@ and type_expr ctx ?(need_val=true) (e,p) =
 		ctx.untyped <- true;
 		let e = type_expr ctx e in
 		ctx.untyped <- old;
-		e
+		{
+			eexpr = e.eexpr;
+			etype = t_dynamic;
+			epos = e.epos;
+		}
 
 and type_function ctx t static constr f p =
 	let locals = ctx.locals in