allow quoting all reserved words using : and no space. fixes JuliaL…

…ang#7872

base/show.jl

@@ -373,7 +373,7 @@ show_unquoted(io::IO, ex::QuoteNode, indent::Int, prec::Int) =
 function show_unquoted_quote_expr(io::IO, value, indent::Int, prec::Int)
  if isa(value, Symbol) && !(value in quoted_syms)
  s = string(value)
- if (isidentifier(s) || isoperator(value)) && s != "end"
+ if isidentifier(s) || isoperator(value)
  print(io, ":")
  print(io, value)
  else

src/julia-parser.scm

@@ -1689,9 +1689,12 @@
  ;; symbol/expression quote
  ((eq? t ':)
  (take-token s)
- (if (closing-token? (peek-token s))
- ':
- (list 'quote (parse-atom- s))))
+ (let ((nxt (peek-token s)))
+ (if (and (closing-token? nxt)
+ (or (not (symbol? nxt))
+ (ts:space? s)))
+ ':
+ (list 'quote (parse-atom- s)))))
 
  ;; misplaced =
  ((eq? t '=) (error "unexpected \"=\""))

test/show.jl

@@ -150,7 +150,7 @@ end"""
 @test sprint(show, symbol("foo bar")) == "symbol(\"foo bar\")"
 @test sprint(show, symbol("foo \"bar")) == "symbol(\"foo \\\"bar\")"
 @test sprint(show, :+) == ":+"
-@test sprint(show, symbol("end")) == "symbol(\"end\")"
+@test sprint(show, :end) == ":end"
 
 # Function and array reference precedence
 @test_repr "([2] + 3)[1]"