mirror of
https://github.com/kanaka/mal.git
synced 2024-09-20 18:18:51 +03:00
22 lines
630 B
JavaScript
22 lines
630 B
JavaScript
export function new_env(outer={}, binds=[], exprs=[]) {
|
|
var e = Object.setPrototypeOf({}, outer)
|
|
// Bind symbols in binds to values in exprs
|
|
for (var i=0; i<binds.length; i++) {
|
|
if (Symbol.keyFor(binds[i]) === "&") {
|
|
e[binds[i+1]] = exprs.slice(i) // variable length arguments
|
|
break
|
|
} else {
|
|
e[binds[i]] = exprs[i]
|
|
}
|
|
}
|
|
return e
|
|
}
|
|
export const env_get = (env, sym) => {
|
|
if (sym in env) {
|
|
return env[sym]
|
|
} else {
|
|
throw Error(`'${Symbol.keyFor(sym)}' not found`)
|
|
}
|
|
}
|
|
export const env_set = (env, sym, val) => env[sym] = val
|