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

Unwind prompt frames

Browse source 
* module/language/js-il/runtime.js(unwind): Unwind prompts.
This commit is contained in:
Ian Price 2017-08-03 00:26:02 +01:00
parent 2da7a82d9d
commit 7438a192f8
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -541,7 +541,8 @@ scheme.primitives["wind"] = function(enter, leave) {
scheme.primitives["unwind"] = function () {
var frame = scheme.dynstack.shift();
if (!(frame instanceof scheme.frame.DynWind)) {
if (!(frame instanceof scheme.frame.DynWind) &&
!(frame instanceof scheme.frame.Prompt)) {
throw "not a dynamic wind frame";
};
};