From 166def2da08da12b776e65ee7086e45e6d8ca498 Mon Sep 17 00:00:00 2001
From: Ian Price <ianprice90@googlemail.com>
Date: Mon, 14 Aug 2017 16:31:20 +0100
Subject: [PATCH] Implement unboxed integer primitives.

* module/language/js-il/runtime.js (u64-=, u64->scm): New primitives.
---
 module/language/js-il/runtime.js | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/module/language/js-il/runtime.js b/module/language/js-il/runtime.js
index 34dd3a66a..ec639a4c4 100644
--- a/module/language/js-il/runtime.js
+++ b/module/language/js-il/runtime.js
@@ -87,6 +87,10 @@ scheme.primitives["load-u64"] = function(x) {
     return x;
 };
 
+scheme.primitives["u64-="] = function(x, y) {
+    return coerce_bool(x === y);
+};
+
 scheme.primitives["u64-=-scm"] = function(x, y) {
     // i.e. br-if-u64-=-scm
     return coerce_bool(x === y);
@@ -112,6 +116,10 @@ scheme.primitives["scm->u64"] = function(x) {
     return x;
 };
 
+scheme.primitives["u64->scm"] = function(x) {
+    return x;
+};
+
 // Boxes
 scheme.Box = function (x) {
     this.x = x;