1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00

Implement unboxed integer primitives.

* module/language/js-il/runtime.js (u64-=, u64->scm): New primitives.
This commit is contained in:
Ian Price 2017-08-14 16:31:20 +01:00
parent 3f9bc2dbb0
commit 166def2da0

View file

@ -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;