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

Implement apply correctly

Browse source
This commit is contained in:
Ian Price 2015-06-16 23:19:11 +01:00
parent b939d51f8a
commit 6f77715457
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -288,8 +288,16 @@ scheme.is_true = function (obj) {
};
// Builtins
var apply = function(self, k, f, arg) {
return f.fun(f.freevars, k, arg);
var apply = function(self, k, f) {
var args = Array.prototype.slice.call(arguments, 3);
var tail = args.pop();
while (scheme.is_true(scheme.primitives["pair?"](tail))) {
args.push(tail.car);
tail = tail.cdr;
};
return f.fun.apply(f.fun, [f,k].concat(args));
};
var values = function(self, k) {