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

Implement call-with-values

Browse source
This commit is contained in:
Ian Price 2015-06-16 23:07:13 +01:00
parent 56e6c33264
commit cf905a7004
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -319,7 +319,13 @@ var abort_to_prompt = function(self, k, prompt, arg) {
return handler(kont, arg);
};
var call_with_values = not_implemented_yet;
var call_with_values = function (self, k, producer, consumer) {
var k2 = function () {
var args = Array.prototype.slice.call(arguments);
return consumer.fun.apply(consumer.fun, [consumer, k].concat(args));
};
return producer.fun(producer, k2);
};
var callcc = function (self, k, closure) {
var f = function (self, k2) {