fix JuliaLang#4771, missing case for -> in macroexpander

halleysfifthinc · Nov 10, 2013 · fc174d3 · fc174d3
1 parent 5e2cb42
commit fc174d3
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/src/julia-syntax.scm b/src/julia-syntax.scm
@@ -3088,7 +3088,7 @@ So far only the second case can actually occur.
  '()
  (case (car e)
  ((escape) '())
- ((= function)
+ ((= function ->)
  (append! (filter
  symbol?
  (if (and (pair? (cadr e)) (eq? (car (cadr e)) 'tuple))

diff --git a/test/core.jl b/test/core.jl
@@ -1126,3 +1126,14 @@ f4675{T}(x::StridedArray{T}...) = 2
 g4675{T}(x::StridedArray{T}...) = 2
 g4675(x::StridedArray...) = 1
 @test g4675(zeros(50,50), zeros(50,50)) == 2
+
+# issue #4771
+module Lib4771
+export @make_closure
+macro make_closure()
+ quote
+ f = (x)->1
+ end
+end
+end # module
+@test (Lib4771.@make_closure)(0) == 1