Browse Source

untyped return Dynamic.

Nicolas Cannasse 20 years ago
parent
commit
66e48ef5b2
1 changed files with 5 additions and 1 deletions
  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