suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

integrating more primitives

Browse Source
This commit is contained in:
Danny Yoo 2011-06-27 12:33:35 -04:00
parent 5e0a237454
commit ce5c6a3d87
1 changed files with 61 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
js-assembler/runtime-src/runtime.js
View File

@ -1300,6 +1300,67 @@ if(this['plt'] === undefined) { this['plt'] = {}; }
} }
}); });
installPrimitiveProcedure(
'angle',
1,
function(MACHINE) {
testArgument(MACHINE,
'number',
isNumber,
MACHINE.env[MACHINE.env.length-1],
0,
'angle');
return jsnums.angle(MACHINE.env[MACHINE.env.length-1]);
});
installPrimitiveProcedure(
'exp',
1,
function(MACHINE) {
testArgument(MACHINE,
'number',
isNumber,
MACHINE.env[MACHINE.env.length-1],
0,
'exp');
return jsnums.exp(MACHINE.env[MACHINE.env.length-1]);
});
installPrimitiveProcedure(
'expt',
2,
function(MACHINE) {
testArgument(MACHINE,
'number',
isNumber,
MACHINE.env[MACHINE.env.length - 1],
0,
'expt');
testArgument(MACHINE,
'number',
isNumber,
MACHINE.env[MACHINE.env.length - 2],
1,
'expt');
return jsnums.expt(MACHINE.env[MACHINE.env.length - 1],
MACHINE.env[MACHINE.env.length - 2]);
});
installPrimitiveProcedure(
'exact?',
1,
function(MACHINE) {
testArgument(MACHINE,
'number',
isNumber,
MACHINE.env[MACHINE.env.length - 1],
0,
'exact?');
return jsnums.isExact(x);
});