Turns a literal dictionary into an array of tuples.

ordered.jl

macro ordered(ex::Expr)
    if ex.head == :dict
        ex.head = :vcat
        ex.args = map(ex.args) do x
            :(($(esc(x.args[1])),$(esc(x.args[2]))))
        end
    elseif ex.head == :typed_dict
        ex.head = :vcat
        shift!(ex.args)
        ex.args = map(ex.args) do x
            :(($(esc(x.args[1])),$(esc(x.args[2]))))
        end
    elseif ex.head == :typed_dict_comprehension
        ex.head = :vcat
        (sym, expr) = ex.args[2].args
        range = ex.args[3].args[2]
        args = Expr[]
        @eval begin
            for $(sym) in $(range)
                push!($(args),:(($(esc($(sym))),$(esc($(expr))))))
            end
        end
        ex.args = args
    else
        error("Requires dictionary literal")
    end
    ex
end

A = [ 1 => "A", 2 => "B" ]

for (k,v) in @ordered A
    println(k, " ", v)
end

f(x) = x^2 - x + 3

for (k,v) in @ordered { i => f(i) for i in 1:2:6 }
    println(k," ",v)
end

for (k,v) in @ordered [ 1 => "A", 2 => "B" ]
    println(k," ",v)
end
println(@ordered [ 1=>2, 2=>3 ])