summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/js-il/runtime.js11
1 files changed, 8 insertions, 3 deletions
diff --git a/module/language/js-il/runtime.js b/module/language/js-il/runtime.js
index 688974e2e..271e50837 100644
--- a/module/language/js-il/runtime.js
+++ b/module/language/js-il/runtime.js
@@ -19,6 +19,10 @@ function not_implemented_yet() {
throw "not implemented yet";
};
+function coerce_bool(obj) {
+ return obj ? scheme.TRUE : scheme.FALSE;
+};
+
// Numbers
scheme.primitives.add = function (x, y) {
return x + y;
@@ -45,11 +49,12 @@ scheme.primitives.div = function (x, y) {
};
scheme.primitives["="] = function (x, y) {
- return x == y;
+ return coerce_bool(x == y);
};
scheme.primitives["<"] = function (x, y) {
- return x < y;
+ return coerce_bool(x < y);
+};
};
scheme.primitives.quo = not_implemented_yet;
@@ -98,7 +103,7 @@ scheme.list = function () {
};
scheme.primitives["null?"] = function(obj) {
- return scheme.EMPTY == obj;
+ return coerce_bool(scheme.EMPTY == obj);
};
// Symbols