fix JuliaLang#37656: don't always error on space before ' (JuliaLang#…

…37657)
lazarusA · Sep 22, 2020 · 9b4f473 · 9b4f473
1 parent f6a8dcb
commit 9b4f473
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/src/julia-parser.scm b/src/julia-parser.scm
@@ -1238,10 +1238,11 @@
  ,@(cddr name))
  `(|.| ,ex (quote ,name))))))))
  ((|'|)
- (if (ts:space? s)
- (error (string "space not allowed before \"" t "\"")))
- (take-token s)
- (loop (list t ex)))
+ (if (not (ts:space? s))
+ (begin
+ (take-token s)
+ (loop (list t ex)))
+ ex))
  ((|.'|) (error "the \".'\" operator is discontinued"))
  ((#\{ )
  (disallow-space s ex t)

diff --git a/test/syntax.jl b/test/syntax.jl
@@ -2342,3 +2342,6 @@ else
 end
 
 @test :(a +ꜝ b) == Expr(:call, :+ꜝ, :a, :b)
+
+# issue #37656
+@test :(if true 'a' else 1 end) == Expr(:if, true, quote 'a' end, quote 1 end)