[Guile-commits] 81/99: Argument to make-fluid is optional

[Christopher Allan Webber]

cwebber pushed a commit to branch compile-to-js-merge
in repository guile.

commit 7e5d9d945ec2880df28b287491ac9dfec4d30625
Author: Ian Price <ianpric...@googlemail.com>
AuthorDate: Wed Aug 16 21:44:04 2017 +0100

    Argument to make-fluid is optional
    
    * module/language/js-il/runtime.js(make-fluid): Supply default argument
---
 module/language/js-il/runtime.js | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/module/language/js-il/runtime.js b/module/language/js-il/runtime.js
index 49271bc..1052479 100644
--- a/module/language/js-il/runtime.js
+++ b/module/language/js-il/runtime.js
@@ -1162,6 +1162,9 @@ def_guile0("string-join", function (self, cont, strings) {
 
 // Fluids
 def_guile0("make-fluid", function (self, cont, val) {
+    if (val === undefined) {
+        val = scheme.FALSE;
+    }
     return cont(new scheme.Fluid(val));
 });