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 procedure built-ins.

Browse source 
* module/language/js-il/runtime.js
  (procedure?, set-procedure-property!, make-procedure-with-setter): Implement.
This commit is contained in:
Ian Price 2017-08-02 23:19:00 +01:00
parent bfaf07091a
commit 3d29f2874f
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -936,6 +936,19 @@ def_guile0("make-struct", function (self, cont, vtable, tailsize) {
}
});
// Procedures
def_guile0("procedure?", function (self, cont, obj) {
return cont(coerce_bool(obj instanceof scheme.Closure));
});
def_guile0("set-procedure-property!", function (self, cont, procedure, property, obj) {
return cont(scheme.FALSE);
});
def_guile0("make-procedure-with-setter", function (self, cont, procedure, setter) {
return cont(scheme.FALSE);
});
// Hashtables
def_guile0("make-hash-table", function (self, cont, size) {
return cont(new scheme.HashTable());