From 7e5d9d945ec2880df28b287491ac9dfec4d30625 Mon Sep 17 00:00:00 2001
From: Ian Price <ianprice90@googlemail.com>
Date: Wed, 16 Aug 2017 21:44:04 +0100
Subject: [PATCH] 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 49271bc9f..105247993 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));
 });