Commit17b1cdb

committed

Fix 34 - extension member duplicate check (4)

1 parente9bfa81 commit17b1cdbCopy full SHA for 17b1cdb

File tree

-2

lines changed

-2

lines changed

Lines changed: 0 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -1070,7 +1070,6 @@ let CheckTopBinding cenv env (TBind(v,e,_) as bind) =`
`1070`	`1070`	`\|_->true(* not hiddenRepr*)`
`1071`	`1071`
`1072`	`1072`	`letkind=(if v.IsMemberthen"member"else"value")`
`1073`		`-`
`1074`	`1073`	`letcheck skipValCheck nm=`
`1075`	`1074`	`ifnot skipValCheck&&`
`1076`	`1075`	`v.IsModuleBinding&&`
`@@ -1079,7 +1078,6 @@ let CheckTopBinding cenv env (TBind(v,e,_) as bind) =`
`1079`	`1078`
`1080`	`1079`	`error(Duplicate(kind,v.DisplayName,v.Range));`
`1081`	`1080`
`1082`		`-`
`1083`	`1081`	`#if CASES_IN_NESTED_CLASS`
`1084`	`1082`	`if tcref.IsUnionTycon&& nm="Cases"then`
`1085`	`1083`	`errorR(NameClash(nm,kind,v.DisplayName,v.Range,"generated type","Cases",tcref.Range));`

Comments

(0)