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

abort-to-prompt takes multiple arguments

Browse source
This commit is contained in:
Ian Price 2015-06-16 23:17:09 +01:00
parent cf905a7004
commit ee42731b57
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -297,8 +297,9 @@ var values = function(self, k, arg) {
return k(arg);
};
var abort_to_prompt = function(self, k, prompt, arg) {
var abort_to_prompt = function(self, k, prompt) {
var args = Array.prototype.slice.call(arguments, 3);
var idx = find_prompt(prompt);
var spec = scheme.dynstack[idx];
@ -315,8 +316,8 @@ var abort_to_prompt = function(self, k, prompt, arg) {
unwind(idx);
var handler = spec[2];
return handler(kont, arg);
args.unshift(kont);
return handler.apply(handler, args);
};
var call_with_values = function (self, k, producer, consumer) {