Explorar o código

disable super value check again, we can deal with it later

Simon Krajewski %!s(int64=11) %!d(string=hai) anos
pai
achega
8c991bb6e5
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      typer.ml

+ 2 - 1
typer.ml

@@ -2401,7 +2401,8 @@ 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) ->
-		if s = "super" && with_type <> NoValue then error "Cannot use super as value" p;
+		(* TODO: let's deal with this later *)
+		(* 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