Address PR feedback from Chuck

src/Compilers/VisualBasic/Portable/Operations/VisualBasicOperationFactory_QueryLambdaRewriter.vb

@@ -69,8 +69,6 @@ Namespace Microsoft.CodeAnalysis.Semantics
             Private ReadOnly _uniqueNodes As New HashSet(Of BoundParameter)
 
             Public Overrides Function VisitParameter(node As BoundParameter) As BoundNode
-                node = DirectCast(MyBase.VisitParameter(node), BoundParameter)
-
                 If node.ParameterSymbol?.ContainingSymbol.IsQueryLambdaMethod AndAlso Not _uniqueNodes.Add(node) Then
                     node = New BoundParameter(node.Syntax, node.ParameterSymbol, node.IsLValue, node.SuppressVirtualCalls, node.Type, node.HasErrors)
                 End If

src/Compilers/VisualBasic/Test/Semantic/Semantics/QueryExpressions.vb

-' Copyright (c) Microsoft.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
+' Copyright (c) Microsoft.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
 
 Imports Microsoft.CodeAnalysis.Test.Utilities
 Imports Microsoft.CodeAnalysis.VisualBasic
@@ -155,8 +155,6 @@ End Class
 Module Module1
     Sub Main()
         Dim q As New QueryAble()
-        Dim q1 As Object = From s In q Where s > 0
-        System.Console.WriteLine("-----")
         Dim q2 As Object = From s In q Where s > 0 Where 10 > s'BIND:"From s In q Where s > 0 Where 10 > s"
     End Sub
 End Module]]>.Value
@@ -536,8 +534,6 @@ End Class
 
 Module Module1
     Sub Main()
-        Dim q As New QueryAble2()
-        Dim q1 As Object = From s In q
         Dim y = From z In New C Select z Select z = z.ToString() Select z.ToUpper()'BIND:"From z In New C Select z Select z = z.ToString() Select z.ToUpper()"
     End Sub
 End Module]]>.Value