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:
parent
3f9bc2dbb0
commit
166def2da0
1 changed files with 8 additions and 0 deletions
|
@ -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;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue