mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

Implement variable-bound? builtin

Browse source 
* module/language/js-il/runtime.js(variable-bound?): Implement builtin
This commit is contained in:
Ian Price 2017-08-16 21:46:12 +01:00
parent b84797947d
commit c5fa12f344
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/js-il/runtime.js
View file

@ -1360,6 +1360,10 @@ def_guile0("make-undefined-variable", function (self, cont, val) {
return cont(new scheme.Box(scheme.UNDEFINED)); return cont(new scheme.Box(scheme.UNDEFINED));
}); });
def_guile0("variable-bound?", function (self, cont, box) {
return cont(coerce_bool(!(box.x === scheme.UNDEFINED)));
});
def_guile0("define!", function (self, cont, symbol, value) { def_guile0("define!", function (self, cont, symbol, value) {
// FIXME: validate symbol // FIXME: validate symbol
return cont(scm_module_define(scm_current_module(), symbol, value)); return cont(scm_module_define(scm_current_module(), symbol, value));