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

Argument to make-fluid is optional

Browse source 
* module/language/js-il/runtime.js(make-fluid): Supply default argument
This commit is contained in:
Ian Price 2017-08-16 21:44:04 +01:00
parent fd2445fcf4
commit 7e5d9d945e
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1162,6 +1162,9 @@ def_guile0("string-join", function (self, cont, strings) {
// Fluids // Fluids
def_guile0("make-fluid", function (self, cont, val) { def_guile0("make-fluid", function (self, cont, val) {
if (val === undefined) {
val = scheme.FALSE;
}
return cont(new scheme.Fluid(val)); return cont(new scheme.Fluid(val));
}); });