fix #8338, syntax bug in 1-line function def with keyword args

src/julia-syntax.scm

@@ -472,6 +472,9 @@
 (define (keywords-method-def-expr name sparams argl body)
   (let* ((kargl (cdar argl))  ;; keyword expressions (= k v)
          (pargl (cdr argl))   ;; positional args
+	 (body  (if (and (pair? body) (eq? (car body) 'block))
+		    body
+		    `(block ,body)))
 	 ;; 1-element list of vararg argument, or empty if none
 	 (vararg (let ((l (if (null? pargl) '() (last pargl))))
 		   (if (vararg? l)

test/core.jl

@@ -1829,3 +1829,9 @@ end
 
 # issue #8213
 @test map((x...)->x,(1,2),(3,4),(5,6)) === ((1,3,5),(2,4,6))
+
+# issue #8338
+let ex = Expr(:(=), :(f8338(x;y=4)), :(x*y))
+    eval(ex)
+    @test f8338(2) == 8
+end