mal/julia/env.jl

module env

export Env, env_set, env_find, env_get

type Env
    outer::Any
    data::Dict{Symbol,Any}
end

function Env()
    Env(nothing, Dict())
end

function Env(outer)
    Env(outer, Dict())
end

function Env(outer, binds, exprs)
    e = Env(outer, Dict())
    for i=1:length(binds)
        if binds[i] == :&
            e.data[binds[i+1]] = exprs[i:end]
            break
        else
            e.data[binds[i]] = exprs[i]
        end
    end
    e
end


function env_set(env::Env, k::Symbol, v)
    env.data[k] = v
end

function env_find(env::Env, k::Symbol)
    if haskey(env.data, k)
        env
    elseif env.outer != nothing
        env_find(env.outer, k)
    else
        nothing
    end
end

function env_get(env::Env, k::Symbol)
    e = env_find(env, k)
    if e != nothing
        e.data[k]
    else
        error("'$(string(k))' not found")
    end
end

end