Meta: fix definition of dump macro

lazarusA · Jun 13, 2018 · 08df29f · 08df29f
1 parent 919c0cd
commit 08df29f
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/base/meta.jl b/base/meta.jl
@@ -41,8 +41,10 @@ function show_sexpr(io::IO, ex::Expr, indent::Int)
  print(io, ex.head === :block ? ",\n"*" "^inner : ", ")
  show_sexpr(io, arg, inner)
  end
- if isempty(ex.args); print(io, ",)")
- else print(io, (ex.head === :block ? "\n"*" "^indent : ""), ')')
+ if isempty(ex.args)
+ print(io, ",)")
+ else
+ print(io, (ex.head === :block ? "\n"*" "^indent : ""), ')')
  end
 end
 
@@ -53,7 +55,7 @@ Show every part of the representation of the given expression. Equivalent to
 [`dump(:(expr))`](@ref dump).
 """
 macro dump(expr)
- dump(expr)
+ return :(dump($(QuoteNode(expr))))
 end
 
 """

diff --git a/test/meta.jl b/test/meta.jl
@@ -160,12 +160,13 @@ end
 
 
 let oldout = stdout
+ ex = Meta.@lower @dump x + y
  local rdout, wrout, out
  try
  rdout, wrout = redirect_stdout()
  out = @async read(rdout, String)
 
- @test eval(:(@dump x + y)) === nothing
+ @test eval(ex) === nothing
 
  redirect_stdout(oldout)
  close(wrout)