distinguish {x y} and {x y;} in parser, as with [ ]

`{x y}` => (braceshcat x y)
`{x y;}` => (bracescat (row x y))

Author: JeffBezanson

Diff for: src/ast.scm

@@ -85,6 +85,7 @@
                 ((row)        (deparse-arglist (cdr e) " "))
                 ((braces)     (string #\{ (deparse-arglist (cdr e) ", ") #\}))
                 ((bracescat)  (string #\{ (deparse-arglist (cdr e) "; ") #\}))
+                ((braceshcat) (string #\{ (deparse-arglist (cdr e) " ") #\}))
                 ((const)  (string "const " (deparse (cadr e))))
                 ((global local)
                  (string (car e) " " (string.join (map deparse (cdr e)) ", ")))

Diff for: src/julia-parser.scm

@@ -2284,7 +2284,7 @@
                      '(braces)
                      (case (car vex)
                        ((vect) `(braces ,@(cdr vex)))
-                       ((hcat) `(bracescat (row ,@(cdr vex))))
+                       ((hcat) `(braceshcat ,@(cdr vex)))
                        ((comprehension) `(braces ,@(cdr vex)))
                        (else   `(bracescat ,@(cdr vex))))))))
 

Diff for: test/syntax.jl

@@ -444,7 +444,7 @@ end
 @test Meta.parse("A=>B") == Expr(:call, :(=>), :A, :B)
 
 @test Meta.parse("{1,2,3}") == Expr(:braces, 1, 2, 3)
-@test Meta.parse("{1 2 3 4}") == Expr(:bracescat, Expr(:row, 1, 2, 3, 4))
+@test Meta.parse("{1 2 3 4}") == Expr(:braceshcat, 1, 2, 3, 4)
 @test Meta.parse("{1 2; 3 4}") == Expr(:bracescat, Expr(:row, 1, 2), Expr(:row, 3, 4))
 @test Meta.parse("{x for x in 1:10}") == Expr(:braces, :(x for x in 1:10))
 @test Meta.parse("{x=>y for (x,y) in zip([1,2,3],[4,5,6])}") == Expr(:braces, :(x=>y for (x,y) in zip([1,2,3],[4,5,6])))