浏览代码

enable super-as-value errors again

Simon Krajewski 11 年之前
父节点
当前提交
98de273f56
共有 2 个文件被更改,包括 1 次插入2 次删除
  1. 0 0
      tests/unit/issues/Issue2750.hx
  2. 1 2
      typer.ml

+ 0 - 0
tests/unit/issues/Issue2750.hx.disabled → tests/unit/issues/Issue2750.hx


+ 1 - 2
typer.ml

@@ -2448,8 +2448,7 @@ and type_expr ctx (e,p) (with_type:with_type) =
 	| EField(_,n) when n.[0] = '$' ->
 		error "Field names starting with $ are not allowed" p
 	| EConst (Ident s) ->
-		(* TODO: let's deal with this later *)
-		(* if s = "super" && with_type <> NoValue then error "Cannot use super as value" p; *)
+		if s = "super" && with_type <> NoValue then error "Cannot use super as value" p;
 		(try
 			acc_get ctx (type_ident_raise ~imported_enums:false ctx s p MGet) p
 		with Not_found -> try