whalesong/lang/unsafe/js-impl.js
2011-09-14 22:30:14 -04:00

18 lines
413 B
JavaScript

EXPORTS['unsafe-car'] =
plt.baselib.functions.makePrimitiveProcedure(
'unsafe-car',
1,
function(MACHINE) {
return MACHINE.e[MACHINE.e.length - 1].first;
});
EXPORTS['unsafe-cdr'] =
plt.baselib.functions.makePrimitiveProcedure(
'unsafe-cdr',
1,
function(MACHINE) {
return MACHINE.e[MACHINE.e.length - 1].rest;
});