fix warning [skip ci]

src/context/typecore.ml

@@ -207,7 +207,7 @@ let save_locals ctx =
 
 let add_local ctx n t p =
 	let v = alloc_var n t p in
-	if Define.defined ctx.com.defines WarnVarShadowing then begin
+	if Define.defined ctx.com.defines Define.WarnVarShadowing then begin
 		try
 			let v' = PMap.find n ctx.locals in
 			ctx.com.warning "This variable shadows a previously declared variable" p;