diff --git a/src/fsharp/pars.fsy b/src/fsharp/pars.fsy index 66ee0bd792e..278ad39154e 100644 --- a/src/fsharp/pars.fsy +++ b/src/fsharp/pars.fsy @@ -1942,8 +1942,8 @@ atomicPatternLongIdent: | pathOp { (None,$1) } | access UNDERSCORE DOT pathOp { if not (parseState.LexBuffer.SupportsFeature LanguageFeature.SingleUnderscorePattern) then - raiseParseErrorAt (rhs parseState 2) (FSComp.SR.parsUnexpectedSymbolDot()) - let (LongIdentWithDots(lid,dotms)) = $4 in (Some($1),LongIdentWithDots(ident("_",rhs parseState 1)::lid, rhs parseState 2::dotms)) + raiseParseErrorAt (rhs parseState 3) (FSComp.SR.parsUnexpectedSymbolDot()) + let (LongIdentWithDots(lid,dotms)) = $4 in (Some($1),LongIdentWithDots(ident("_",rhs parseState 2)::lid, rhs parseState 3::dotms)) } | access pathOp { (Some($1), $2) }