give a syntax error for repeated keyword args. fixes #16937

Author: JeffBezanson

src/julia-syntax.scm

@@ -1439,6 +1439,11 @@
 ;; lower function call containing keyword arguments
 (define (lower-kw-call fexpr kw0 pa)
 
+  ;; check for keyword arguments syntactically passed more than once
+  (let ((dups (has-dups (map cadr (filter kwarg? kw0)))))
+    (if dups
+        (error (string "keyword argument \"" (car dups) "\" repeated in call to \"" (deparse fexpr) "\""))))
+
   (define (kwcall-unless-empty f pa kw-container-test kw-container)
     (let* ((expr_stmts (remove-argument-side-effects `(call ,f ,@pa)))
            (pa         (cddr (car expr_stmts)))

test/parse.jl

@@ -1183,3 +1183,7 @@ module Test21607
         x
     end === 1.0
 end
+
+# issue #16937
+@test expand(:(f(2, a=1, w=3, c=3, w=4, b=2))) == Expr(:error,
+                                                       "keyword argument \"w\" repeated in call to \"f\"")