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

Implement fluid primitives

Browse source
This commit is contained in:
Ian Price 2015-06-17 20:32:10 +01:00
parent 46597b49dc
commit 78cacbe450
1 changed files with 31 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -370,9 +370,33 @@ scheme.primitives["eqv?"] = function(x, y) {
scheme.primitives["equal?"] = not_implemented_yet; scheme.primitives["equal?"] = not_implemented_yet;
// Fluids // Fluids
scheme.primitives["pop-fluid"] = not_implemented_yet; scheme.Fluid = function (x) {
scheme.primitives["push-fluid"] = not_implemented_yet; this.value = x;
scheme.primitives["fluid-ref"] = not_implemented_yet; return this;
};
scheme.primitives["pop-fluid"] = function () {
var frame = scheme.dynstack.shift();
if (frame instanceof scheme.frame.Fluid) {
frame.fluid.value = frame.fluid.old_value;
return;
} else {
throw "not a frame";
};
};
scheme.primitives["push-fluid"] = function (fluid, new_value) {
var old_value = fluid.value;
fluid.value = new_value;
var frame = new scheme.frame.Fluid(fluid, old_value);
scheme.dynstack.unshift(frame);
return;
};
scheme.primitives["fluid-ref"] = function (fluid) {
// TODO: check fluid type
return fluid.value;
};
// Variables // Variables
scheme.primitives["variable?"] = not_implemented_yet; scheme.primitives["variable?"] = not_implemented_yet;
@ -415,3 +439,7 @@ scheme.frame.Prompt = function(tag, escape_only, handler){
this.handler = handler; this.handler = handler;
}; };
scheme.frame.Fluid = function(fluid, old_value) {
this.fluid = fluid;
this.old_value = old_value;
};