fix #23236 (#23243)

comprehension eta-reduction needs to know that dot operators are not
function names.

(cherry picked from commit 37655e3)

src/julia-syntax.scm

@@ -1677,6 +1677,7 @@
     (if (and (null? splat)
              (length= expr 3) (eq? (car expr) 'call)
              (eq? (caddr expr) argname)
+             (not (dotop? (cadr expr)))
              (not (expr-contains-eq argname (cadr expr))))
         (cadr expr)  ;; eta reduce `x->f(x)` => `f`
         `(-> ,argname (block ,@splat ,expr)))))

test/broadcast.jl

@@ -247,6 +247,11 @@ let x = [1:4;]
     @test sin.(f17300kw.(x, y=1)) == sin.(f17300kw.(x; y=1)) == sin.(x .+ 1)
 end
 
+# issue #23236
+let X = [[true,false],[false,true]]
+    @test [.!x for x in X] == [[false,true],[true,false]]
+end
+
 # splice escaping of @.
 let x = [4, -9, 1, -16]
     @test [2, 3, 4, 5] == @.(1 + sqrt($sort(abs(x))))